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FOREWORD 


If you are a Commodore 64 owner, or are about to 
become one, it is probably because you have decided 
that this computer offers you more on graphics, colour, 
sound and memory. 

Because of the potential of the Commodore 64, we have 
written a wide selection of programs to meet your needs. 

If you are a games player, you will find ample use of 
colour and graphics to please your eye and test your 
reactions. If you are someone who is interested in 
'beating the computer' by working out logical steps, then 
the adventure games are for you. 

Programmers are catered for with a highly versatile 
assembler/disassembler program, which will allow 
machine code users to convert hexadecimal to decimal. 
They will also be able to save and load machine code 
routines to, and from, tape. 

To help users understand the graphic symbols, we have 
listed the line numbers and given instructions for their 
use. We have also explained sub-routines, so that users 
may alter the programs, if they wish, to increase the 
speed and complexity of many of the games. 


All of the programs in this book have been listed 
complete with spaces to improve clarity. Normally 
Commodore Basic does not require spaces between key 
words and variables or numerical constants and their 
deletion will both save space in memory and may speed 
upthe running ofthe program. 




Examples: 


POKE 1024,6 becomes POKE 1024,6 

GOTO 590 becomes GOTO590 

FOR J = 1 TO 10 becomes FORJ = 1TO10 


If you are a beginner to computing it may be a good idea 
to type in the programs exactly as listed, complete with 
spaces, until you are sure that the program has been 
entered correctly. Spaces can always be removed 
afterwards using the delete key. 

The programs in this book have been very carefully de¬ 
bugged and the listing dumped direct from the computer 
before printing. This is to ensure reliable error-free 
listings that should work first time, every time. If a 
program doesn't work your first reaction will probably be 
to scream, but remember that virtually all mistakes are 
caused by simple typing errors or by not knowing how to 
useyourmachine. 

Read the instruction manual supplied with the machine 
and approach the typing in a slow and careful manner. 
Remember that the more effort that you put into learning 
about your computer, the more you will undoubtedly get 
out of it. 
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FORBIDDEN CITY 
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In a deserted city on a far away planet, there is legend of 
a hidden treasure guarded by force fields, hallucinatory 
gases and alien life forms. Do you have the courage to set 
forth and seek the treasure? 

The city lies at the edge of a vast primeval forest, near 
shimmering lakes, and will offerthe unsuspecting visitor 
choices of silver spoons, blue liquids, metal discs and 
possible death. You will see however, that if the going 
gets tough, you can always stop for a Coke!! 


How to play 

Your input is a standard form of verb followed by noun 
eg. Take Spoon, Take Metal Box, Take Notebook etc. 
Compass directions can be abbreviated to N, S, E, W. 

If you haven't typed in an adventure game before, you 
will find that it can be time consuming as you have to be 
very careful with data statements, otherwise you could 
run round in circles, as the logical structure of the 
program will collapse. We recommend therefore, that 
you have a cassette recorder to hand, so that you can 
load your listings when you have had enough work for 
one sitting. You can then complete your input at your 
next session. 

We have also included a "save game" feature so that, if 
you cannot finish the adventure before you have to 
surrender the family television set, you can just type the 
word SAVE as your command; and LOAD to re 
commence. 
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Graphics Characters 


Line 

14 Clear 
20 6 cursor down 
120 Clear 
180 Cursor down 
186 Cursor down 
190 2 cursor down 
210 Clear 

290 Home, cursor down 
360 Full lineofCommodorekeyand I 
3280 Clear 
3380 Clear 
3455 Clear 
3470 Clear 
3472 6 cursor down 
3480 12 cursor down 

3510 Clear 
3512 6 cursor down 
3514 12 cursor down 

3520 Clear 


The program 

Lines 

30- 114 Dimension arrays and read in Data 
120- 190 Print game instructions 
280- 360 Print location descriptions 
404- 526 Input and analyse command and goto 
relevant part of program 
530-580 Verb press 
590-680 Drink 
690-850 Insert 
870-1010 Read 
1020-1260 Pull 
1270-1370 Use 
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1380-1412 

Drop 

1450-1582 

Go 

1590-1732 

Take 

1750-1982 

Examine 

2000-2182 

Open 

2190 

Verb data 

2200-2202 

Noun data 

2214-2980 

Location descriptions and exit data 

2990-3212 

Help 

3220-3240 

Delay subroutine 

3280-3360 

Save game 

3380-3460 

Load game 

3470-3530 

End of game routines 


19 REM FORBIDDEN CITV 
1 £ REM 

14 PRINT " 73" 

SliZl PRINT ** :«CQlftIKIflVa" TflBCU) "FORBIDDEN CIT 

30 DIM M < 60 .. 4 > .. OB < 30 > > O.J2* < 30 > .. R35 < 69 > -• DR* 
c: 4 !:• .. OL <30> 

40 GOTO 2190 

30 REM REFID IN DRTR 

c60 RERD VUF .. N^e .. 24P -• RM > MM -* OR 

62 m^*M«h-z:4P 

P'0 FOR _T= l TO RM 

•30 FOR K=» 1 TO 4 

32 RERD M < .T .. K > 

34 NEXT K > J 
30 FOR 1 TO MM 

92 RERD OLCJ> 

34 NEXT -J 

100 FOR -J=l TO MM 

102 RERD O J$U:« 

1 £14 NEXT -J 

11© FOR -J= 1 TO 4 

112 RERD DR*<J> 

114 ME XT _T 

113 REM RRIMT INSTRUCTIONS 

120 RRIMT ■' 73" 

13© RRIMT "THERE 13 R LONG DESERTED RLIE 

M CITV ON" 

1 32 RRIMT " R FRR AWAV PLRNET IM WHICH, L_ 

EGEMD HRS" 

134 RRIMT "IT, R VAST TREASURE IS HIDDEM 

MANV " 

136 RRIMT "HAVE ATTEMPTED TO FIMD IT, BU 

T MOME" 

138 RRIMT "HAVE RETURNED." 

140 RRIMT 

170 RRIMT "TOGETHER WE WILL. ATTEMPT TO F 

IMD THE" 

172 RRIMT "TREASURE- GIVE ME TWO WORD R 

HRFlSEZ*E. pi 3 • * 

174°PPINT "INSTRUCTIONS, EG GO NORTH, EX 
AMIME" 

176 RRIMT "TABLE, TAKE INVENTORY." 

130 RRIMT "WTHERE ARE MAMV MORE INSTRUCT 

IONS YOU" 

132 RRIMT "MAY USE, BUT I WON'T SPOIL- VO 

UR FUN BY" 

134 RRIMT "TELLING YOU THEM ALL!" 

136 RRIMT "MIN CASES OF DESPERATION TVRE 

HELP AS" 


188 PRINT "VOUR COMMAND." 

190 PRINT "MRFRESS ANV KEV TO START." 
200 GET G* 

202 IF G* — " *• THEM 200 
210 PRINT ••n” 

280 GOTO -4-00 

270 REM RRIMT LOCATION 
230 FOR J-1024 TO 1343 

232 POKE J,32 
234 NEXT -J 

25*0 RRIMT "MM-OCATION: "R«<CP> 

300 FOR -J — l TO MM 

302 IF OL<J>-CP THEM 31O 
394 MEXT -J 

303 GOTO 320 

310 RRIMT "VISIBLE : "i 

312 ROR _T=» 1 TO MM 

3 14 IF OL < JT > OCR THEM 313 

313 RRIMT 0-T*<JT> 

313 MEXT J 

320 RRIMT "DIRECTIONS : •• i 

322 ROR -T=» 1 TO 4 

324 IR M < CR . > — O OR MCCP> J>-88 THEM 323 

323 RRIMT DR«<J>; = DR — 1 
323 MEXT -T 

330 IR DF-0 THEM RRIMT "33" 

340 DP*y 
350 RRIMT 

360 RRIMT " ■ — ——■ — ■■■ ■■ — ... m ■ ■■ 


■25 OR CR—14 OR CR—5 O 


370 IR CP-46 OR CP= 

R CR—10 THEM 3250 

ST’S IR CP-12 THEM R*<12)» M IN R 
LV ROOM-" 

33© RETURN 

ROR LT=1 TO 5 RR I MT MEXT GO? 
ROR -T—1 TO 1 <5 : RRIMT : MEXT 

I F** = •• 

INPUT "WHAT MOW":IR*:RRIMT 


400 

402 

403 

404 

405 

406 

407 
403 
4 10 
4 20 
430 
432 


DANK 


;ub 


iMEL 


*© 


IR IR*» 
IR IR»* 
IR IR*- 
IR IR4 = 
IR IR* 3 
IR IP*= 
IR I R* = 


M" THEM 
S" THEM 
E" THEM 
Ui" THEM 
HELP 
SAVE 


LORD * 


GO 
GO 
GO 
GO 

THEM 2990 
THEM 3270 


I R* = 
I R* = 
I R* = 
I R* = 


MOR ' 
SOU * 
EAS' 
WES * 


IR LEM < IR* > <6 


DERSTAND THAT. 


THE 

THE 


436 

440 


444 

443 


GOTO 


REM IMSTRING ROUTINE 
ROR X—1 TO LEM < IR*> 
IR MID* < IP*^ X/ 1 > — " " 

MEXT X 

IR X>LEM<IP3t)-2 THEM 


!M 33 0 

iM RRIMT 
400 


UN 


THEM 450 


I R*- 


; GOTO 43 


450 VEi-LERT*< IR* . 3 > 

460 MT* —M I 3D* C I R* . X-f- 1 . LEM < I R* > —X > 

47*0 MO*-MID*aR*,X+l,3) 

430 ROR VB-1 TO LEN<V*> 

432 IR MID*<V*,VB.3>VB* THEM 433 

434 MEXT VB 

486 VB—O 

433 VB-<VB+2)X3 

490 IR VB<1 THEM RRIMT "I DOM" T UMDERSTA 

MID THE VERB. " GOTO 400 

500 ROR MO-1 TO LEM < M* > 

502 IR M I El* < M* • MO .. 3 > =NO* THEM 503 

504 MEXT MO 

506 MO—O 

505 MO— < NO+2> X3 

510 IR MO< 1 OR < I MT < MO > OMO > THEM PRINT 

"I DON'T UNDERSTAND THE NOUN-":GOTO 400 

520 IR VB>1O THEM 526 

522 ON VB GOTO 530. 17-40. 1420,870, 1020.53 

O.1270,1530.1530.1330 

526 OM VB—lO GOTO 1380, 17*40. 1990. 1420. lO 

20 .. 330 .. 530 

530 IR MO—24 AMD OB<1>—1 AMD CR—44 THEM 

540 

534 GOTO 530 

540 RRIMT "THE RORCE RIELD DISAPPEARED!" 

530 M < 44 . 1 — 1 1 

568 R* < 44 > — " i=l NARROW PASSAGEWAY " 
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57© GOTO 40 G 
5S0 GOTO 1250 

590 IF OB < 7 > a1 RND NO-21 THEN 600 
5'92 GOTO 670 

6Q0 RRIMT "SOMETH I MG STRFlNOE IS HAPPEN I M 
O - . . " 

610 GOSUB 3220 

620 PRINT "VOU SEEM TO BE GETTING HEflVIE 

R ! " 

630 GOSUB 3220 

^40 PRINT ”VOU'RE FALLING THROUGH THE FL 

OOR ! " 

650 GOSUB 3220 
660 GOTO 3470 

670 RRIMT "VOU CAN'T BO THAT!" 

680 GOTO -4-00 

690 IF NO=2 AND CP-13 AND OB<2>-l THEM 7* 

GO 

692 GOTO 730 

700 RRIMT "THERE'S R NOISE! " 

710 GOSUB 3220 

720 RRIMT "SOMETHING'S COMIMG OUT OR THE 
MACHIME!" 

730 GOSUB 3220 

740 RRIMT "IT'S R BLACK METAL ROB! " 

750 OB < 2 > =0 
76U OL<3>-13 
770 GOTO *400 

730 IR NO-3 AND CP-39 AMD OB<3>-l THEM 7” 

90 

732 GOTO ©30 

790 RRIMT "R SECRET BOOR HRS OPENED!" 

300 M < 39 1 >=16 

©10 Rf C 39 :* = " A DOORWAV" 

3 n G ij T i Zf *4 0 £i 

©30 IR NO-5 AND CP-2 RMB OB<5>-l THEN 13 
1 0 

34W RRIMT "MOTHIMG HAPPENED-" 

y50 GOTO <400 
860 REM RERB 

©TO IR < NO —8 OR NO-19) RMB <OBC 8 > = l OR O 

l— < 8 > -CP > THEM ©30 
©7*2 GOTO ©00 

3©0 RRIMT "IT SRVS : PSZGI EMR RCRC RMM" 

©30 GOTO <400 

900 IR CNO-10 OR NO-19) RMB < OB < 1O > = 1 OR 

OL<10)-CP> THEM ©10 
©02 GOTO ©30 

©10 RRIMT "IT SRVS: 21115-4 2511419" 

920 GOTO -400 

©30 IR MO—1© RMB CP-16 THEM ©-40 

932 GOTO 960 

940 RRIMT "IT SRVS: BEWARE THE HRZE. IT 

COMPOSES THE SENSES." 

950 GOTO -400 

©©0 IR (NG-11 OR MO-19) RMB <0B<H)*1 OR 

OL<ll>=CR) THEM ©7=*0 
962 GOTO ©©0 

9^0 RRIMT "IT SRVS: RM SVHBD SM RTEBDDC" 
©S0 GOTO 4001 

©©0 IR MO—15 RMB CP-36 THEM 3510 

1000 RRIMT "VOU DON'T HAVE R "NT$ 

1010 GOTO -400 

1020 IR MO—25 RMB CP-21 THEM 1030 

1022 GOTO 1110 

1030 INPUT "WHICH ONE’NQ 

10-40 IR Q—2 OR Q—3 THEM CR-16 : GOTO -400 
1050 IR Cl = 4 THEM CP-24 GOTO 400 
I860 CP-46 

1070 OOTO 400 

1030 RRIMT "R SMRLL MOTEBOOK HRS RRRERRE 

B RROM NOWHERE!" 

1090 OLC1D-28 
1100 GOTO 400 

1110 IR MO—25 RMB CP-47 THEM 1120 

1112 GOTO 1140 
1120 CP-42 

1130 GOTO 400 

1140 IR MO—25 THEM 1150 

1142 GOTO 1250 

1150 IMRUT "WHICH ONE";Q 

1160 IR 0—3 RMB CP-42 THEM 117© 






11€2 GOTO 1190 
1 1 7*0 CP = 47 
1130 GOTO 400 

1 190 IF < Q=3 OR Q—2> RHD CP=23 THEM 1 030 

1200 IE in**! RNB CP=28 THEM 12:10 

1202 GOTO 1230 

1210 CP=29 

1220 GOTO -400 

1230 CP=46 

12- 40 GOTO -400 

1230 PRIMT "MOTHIMG HRPPEMED." 

1260 GOTO -400 

1270 IE MO —2 HMD CP= 13 THEM 1200 

1272 GOTO 1300 
1280 VB=16 

1290 GOTO 320 

1300 IE HO=»5 AND CP=2 RND OB<5> = l THEM 1 

3 10 

1302 GOTO 1360 

1310 PRIMT "THE GATE IS UNLOCKED. M 
1320 M < 2 . 1 > —3 

1330 RJ=<2>*"OIJTSIDE THE ENTRANCE TO THE 
O I TV " 

13- 40 GOTO -40O 

1360 PRIMT "VOU CAN'T DO THAT!" 

1 370 GOTO -400 
1330 IE NO-3 THEM 1390 

13*32 GOTO 1-400 
1330 M<40, 1 > =-2-4 

1-4O0 IE OBCNOXOl THEM 1410 

1-402 OB<MO)-0 
1 -4.0-4- OL < NO-CP 

1-403 PRIMT "VOIJ'VE DROPPED IT. " 

1-403 GOTO -400 

1-410 PRIMT "VOU DON'T HftVE "NT$ 

1-412 GOTO -4O0 

1-420 REM GO 

1-430 REM DIRECTIONS 

1450 IE CP-32 AND NO-31 THEM 1460 

1-432 GOTO 1490 

1460 IE MC32,4>-99 THEM 1-47*0 

1462 GOTO 1310 

1-47*0 CP—IS 

1-430 M<32,4>*35 

1 490 I E MO— 1 7* PND CP-50 THEM 1300 

1-4*32 GOTO 15 10 
1300 MO—30 

1310 IE CP—32 HMD OB<6>—1 AMD MO—31 THEM 

1 320 

1312 GOTO 1330 

1320 M < 33 • -4 > -36 

1330 REM MOT ALLOWED 

13-40 IE MO <12 3 OR M0>31 THEM PRIMT "VOU C 

AN'T GO THAT WAV. " : GOTO -400 

1530 IE M<CP,NO-27>-0 THEM PRIMT "VOU CA 
M - T GO THAT WR V . " = GOTO -400 

1560 IE M<CP,NO-27>-88 THEM PRIMT "VOU G 

AN'T GO THAT WAV> VET."-GOTO 400 

157*0 REM DIRECTION OK 

1 330 CP —M < CP . MO —27* > 

1532 GOTO -400 

1 590 IE MO <1027* THEM 1650 

1600 EOR _T — 1 TO MM 

1618 I E OBCJXOl THEM 1630 

1620 PRIMT 

1630 NEXT J 

1640 GOTO -4O0 

1630 IE MOO13 THEM PRIMT "VOU CAN'T TAKE 
THAT!":GOTO 400 
1660 EOR JT— 1 TO 13 

1662 IE OB<J>=l THEM CN-CM+t 

1670 NEXT _T 

1680 IE CMOS THEM PRIMT "VOU CAN'T CARRV 

HMV MORE. " : CM—0 - GOTO -400 
1690 CM—O 

17*00 IE N003 THEM 17*20 
17*10 MC40,1)-33 

17*20 IE OL_ < MO > OCP THEM 17*30 

1722 OL< MO >—O 
1 7*2-4 OB < MO > — 1 

1726 PRIMT "IT'S VOURS." 

1 7*23 GOTO -4O0 
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1730 PRINT "THERE'S MO "NT*" HERE!" 

1732 GOXO 400 
1 7-40 REM EXAMINE 

IP'S© IE NO-S HND <QB<8>*1 OR OL<S>«CP> X 
MEM 1760 

1752 IE MO =1 1 HMD COBC 1 1 > = 1 OR OL< 1 1 > *CP 

> XHEM 1760 

1754 00X0 1730 

1760 RRIMX "XHERE-*3 SOME WRIXING OM IX." 

1770 00X0 -4-00 

17S0 IE MO*9 AND <OB<3>—1 OR OL < 3 > =CP > X 

HEM 1790 

17*32 00X0 1310 

1790 RRIMX "XHERE EtRE SEVERAL SMALL LIGH 

XS OM IX-M" 

1791 GOSUE 322© 

1792 RRIMX "XHEV ARE SXARXIMG XO FLICKER 

— IX MIGHX" 

1794 RRIMX "BE DANGEROUS ! " 

ISO© 00X0 -4-0© 

131© IE NO»10 AMD <OB<10>*1 OR OL < 1 © > =»CP 

> XHEM 1760 

132© IE NO=22 AND CP-26 XHEM 133© 

1322 00X0 I860 

1330 RRIMX "XHERE-'S R SMALL PLASX IO CUBE 

OM IX." 

1840 OL<3>—23 

1350 00X0 400 

I860 IE NO-26 AND CP-13 XHEM 1970 
13*52 00X0 133© 

137© RRIMX "XHERE-'S R SMRLL VERXICRL 3UO 

X RX XHE" 

137*2 RRIMX " XOR AND R SHUXE RX XHE BOXXO 

M. " 

133© 00X0 *40© 

133© IE NO-13 RND CP-39 XHEM 1300 
1392 00X0 1920 

130© RRIMX "XHERE-'S R SMRLL CIRCULAR HOL 

E IM IX," 

1302 RRIMX "RBOUX FOUR EEEX FROM XHE ORO 

LIME - M 

13 10 00X0 -4-00 

132© IE MO-16 RME CP-43 XHEM 133© 

1322 00X0 137© 

1330 IE UE<9)=1 OR OL<3><>© XHEM I960 
1940 RRIMX "LOOK!" 

1355© OL < 3 > -43 
I960 00X0 -4-0© 

1370 REM MOX FOUND 

133© RRIMX "MOXHING SRECIRL" 

1 332 00X0 -400 

1330 REM OREM 

2000 IE CP-12 RME MO—23 XHEM 2010 
2002 00X0 207© 

2010 RRIMX "LOOK!" 

202© IE OL<2>O0 OR OB<2> = l XHEM 2O-40 

203© OL<2>-12 

2040 IE UL<4)O0 OR OB < 4 > =-1 XHEM 2030 

205© OL<4>—12 

203© GOXO -40© 

207© IE CP-34 RME MO—23 XHEM 203© 

2072 00X0 2120 

203© RRIMX "LOOK!" 

2030 IE OL<10>O0 OR OB<10>- 1 XHEM 211© 

2 1 ©0 OL < 1 © > —3-4 

211© 00X0 -40© 

212© IE OR—33 RME MO—2© XHEM 213© 

2122 GOXO 213© 

2 13© RRIMX "XHERE IS RM EXRLOSIOM- - - " 
21*40 GOSUB 322© 

2150 00X0 3-47© 

2 13© RRIMX "VOU CRN'X EO XHRX. " 

2 132 00X0 *40© 

2 17© REM MOX EQIJND 

2 13© RRIMX " XHERE "* S MOXH I MO XHERE - " 

2132 00X0 -40© 

2184 REM VERB SXRIMO 

2130 EhXh DRIEXAGO rerrulrususexakgexriJX 
EROLOOOREWALMOVIMSPRE 
2 13-4 REM NOUN SXR I MO 

22©0 DuXA BOXDISRODSPOKEVRMUELACUBHELXIM 
MOX-S I GSHEPODWALWR I 





2202 DRTfl LOCLIQTRBCUPBUTLEVMRCINVNORSOU 
EhSWES 

2210 DRTR 51,26.2 

2214 REM LOCATION DESCRIPTIONS 
2220 R«<1>«"IN A CORRIDOR." 

2230 DRTR 12- 11- 13- 1-4 

22- 40 R*<2> = ,, OUT3IDE OR THE ENTRANCE TO T 

HECITV FACING THE LOCKED <3ATE. M 

2250 DRTR 33-0-0-0 

2260 R«<3>—"IN R GREV STONE PASSAGE." 

2270 DRTR -4 - 2 - 0 - 0 

2230 R*<4>«"IN R MARROW CORRIDOR." 

2230 DRTR 55 - 3 - 3 - 0 

2300 R$C5)=»"FALLING IMTO R DEER PIT..." 
2310 DRTR 0- 0.0 - 0 

2320 1 > 

2330 DRTR 7* - 3 - 0 - 4 

23- 40 R$<7>-"IN R SMALL DARK ROOM. " 

2350 R*<8)»"IN R LOW METRL TUNNEL." 

2360 R« < 3 >-R*Cl) 

237*0 DRTR 0 - 3 - 0 - 0 - 3 - 0 - 3 - 0 - 4-4 - 0 - 1 0 - 3 
2330 < 10) = " IM R SMALL MARROW CHAMBER. 

THE WALLS ARE MOVIMO TOWARDS VOU..-" 
2330 R*<U)*"IN R PRSSRGEWRV." 

2-400 R*C12)-"IM R DANK SMELL V ROOM- R SM 

RLLRLIEM LIREFORM IS WATCHING VOU." 

2-4 1 0 DRTR 0-0-0-0 - 1- -4-4 - 0- 15-0 - 1-0-0 
2-420 <13)=»"IM R LARGE EMPTV HALL" 

2430 R*<14)-"IM R LASER TESTING CHAMBER. 

- - -2 R R !-" 

2440 R« <15) *R^t <1) 

2450 DRTR 0- 10-0- 1 - 0- 0- 0- 0- 33- O- 11,0 
2460 RS< 1iS>»"IM SOME SORT OR EMERGV RIEL 
D- R GREEN HAZE SURROUNDS VOU." 

247*0 R«<17>-"IN THE EMERGV RIELD. " 

2430 ROR LT=- 1 3 TO 23 
2430 < ZT > = R-* < 17) 

2500 NEXT J 


25 1 0 

DRTR 

17- 

33-17- 

13- 

17*- 13- 

13-18, 

1 7* - 

13- 

1 8 

25 1 2 

DRTR 

17- 

13- 33- 

13- 

1 7* - 33 - 

13-21- 

22 - 

17- 

1 3 

25 14 

DRTR 

13- 

20- 40- 

17, 

20- 23- 

25- 17*- 

22- 

13- 


2520 R* < 24 > =»RJ <11) 

2530 R#<25)»"IN R FREEZER ROOM. THE DOOR 

LOCKS BEHIND VOU.- . 

2540 R$<26)=»"IN AN OLD DERELICT STORAGE 

ROOM - ’• 

2550 DRTR 26- 40- 41 - 25-0-0- 0-0-0- 24- 0- 0 
2560 R«<27>-R»<3> 

257*0 Ri<2S)»"IN A TELEPORT ROOM. " 

2530 R*<29)«"IN R LOW OLOOMV STONE 

PRSSRGEWRV" 

2530 DATH 45 - 0 - 23 - 4 1 - 0 - 0 - 0 - 27* - 3 1 - 27* - 30 - 3 
2 

2600 R$<30)»"IN AN RPPRRENTLV EMPTV STEE 

L VAULT. *• 

2610 R#<31)- M IN AN ALIEN LABORATORV" 

2320 R3f<32>-R*< 1 > 

2330 DRTR 0-0.0-23-0-23-0-0-34-33-23-33 
2340 Ri<33)»"IN R HIGH CEILINOED CHAMBER 

THE PLOOR SOUNDS HOLLOW. M 
2350 R»<34>- ,, IN WHRT APPEARS TO BE R SMR 

LL ALIEN RESTAURANT . *• 

2330 Ri<35)»"RT THE END OP A SHORT 

CORR I DOR . 

237*0 DRTR 32-0-0-0-0-32-0-0-0-0-32-33 
2330 R*<3S>-"IN THE SECRET TREASURE ROOM 

! " 

2330 R3? < 37* > -R* < 17) 

27*00 R*<38)-RS< 17) 

2710 DRTR 0 - 0 - 35 - 0- 13 - 13- 13 - 33 - 13 - 20 - 37* - 
1 7” 

27*20 R«<33)=>"fl PLAT WALL. " 

27*30 R*<40)-"RT THE PR I NOE OP AN EMERGV 

P I ELD . ” 

27*40 R$<41)aR$<l> 

27*50 DRTR 33 - 1 5 - 0 - 0 - 38 - 22 - 1 3 - l 3 - 42.43 - 27 
- 24 

27*30 R*<42)*R$<23) 

27*7*0 R*<43)-"IN R VAST ECHO I NO ROOM. " 

27*00 R^ < 44 > IN R NARROW PASSAGE - A POR 
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CE FIELD BARS VOUR WRV. 

2790 DAT R 3. -41,3,3. -41^5.3,3.. S3 ,3,3,3 
2SW0 RJ:<45> = " IN R OLOOMV PhSSRGE FACING 

R HEAVV LOCKED DOOR - " 

2310 Ri<46>»“DEEP IN SPACE SURROUNDED BV 
THOUSANDS OR STRRS- . . ” 

2320 DATA 33 , 27 ,3,3,3,3,3,3 

2333 R*<47>»"IN R SMRLL PLASTIC DOME." 
2840 R*<43>*"RT THE EDGE OR R DENSE 

PRIMEVAL FOREST - •• 

2850 R3:<49>»"IN THE MIEEI_E OR R FOREST - 

2860 R$<50>»"AT THE EDGE OR R VAST 

SHIMMERIMG LAKE." 

237Q DATA 0,0,43,0,0,0,49,47,49,50 
2372 DATA 49 . -43 , 49,0,51,0 
2333 R* <51 > — " I MS I DE THE POD." 

2333 DATA 0,0,0,53 

2333 DATA 7,0,0,0,0,31,31,3,0,0,0,26,21 

2332 DATA <4-2 , 3 * 12,3-4 , 33 , 13, 23 , -43 , 47 33 , 3 

6 

2313 DATA 16,3 

2*3 12 REM OBJECT DESCRIPTIONS 

2920 DATA A SMALL METAL BOX WITH A RED 
BUTTON- 

2322 DATA A SMALL METAL DISK-,A BLACK ME 
TAL ROD. 

2924 DATA A SILVER SPOON- , A KEV- , AM AMUL 

2826 DATA A EL ASK OR LUMINOUS BLUE LIQIJI 
D 

2323 DATA A ELASTIC CUBE-, A HELMET-, A TI 
M - 

2333 DATA A MOTEBOOK - , A WOODEN TABLE - ..-4 

LEVERS <1 TO -4 > . 

2332 DATA -4 LEVERS <1 TO -4 > - , A RAISED PL 
ATRORM. 

233-4 DATA A CUPBOARD - , A SMALL CUPBOARD - , 
A STEEL LOCKER. 

23-43 DATA A RUSTV MACHINE. ,4 LEVERS <1 T 
O -4 . 

23-42 DATA A MARROW SHELR - , A SIMGLE LEVER 

23-4-4 DATA A SPACECRRRT ' S ESCAPE ROD- 

2333 DATA A SIGN.,SCRIBBLED WRITIMG OM A 
WALL - 

2332 DATA A GREV METAL SROOM. 

2363 DATA •• M •• , •• S " , " E •• , •• W " 

2970 OB<5)-l 

2333 GOTO 33 
233-4 REM HELP 

2333 IR CP=*17 OR CP-13 OR CP—1 3 OR CP-37 

THEM 3333 

2332 IR OR—33 OR CR—23 OR CR—22 OR CP-23 

THEM 3333 
233-4 GOTO 3323 

3333 RRIMT "KEEP TRVING, THERE IS A WAV 

OUT » •' 

33 13 GOTO -433 

3323 IR CPOIS THEM 3333 

3333 RRIMT "TRV READ." 

3040 GOTO -433 

3353 IR CPO 1 3 THEM 3303 
3363 RRIMT "TIME ROR A COKE!" 

3070 GOTO -433 

3303 IR CP042 AMD CP028 AMD CR<>21 THE 

M 3 113 

3333 RRIMT "ONE OR THEM MUST DO SOMETHIM 

G IJSERULL ! " 

3 133 GOTO -433 

3113 IR CP02 THEM 31-43 

3123 RRIMT "TRV TAKE IMVEMTORV-" 

3 133 GOTO -433 

3 1-43 IR CP044 THEM 3170 

3153 RRIMT "TURN IT ORR THEM-" 

3163 GOTO 433 

3 173 IR CP043 THEM 3233 

3103 RRIMT "LET"3 TRV A DIRREREMT ROUTE. 

3 133 GOTO -433 

3233 REM MO SRECIAL SITUATION 

3213 RRIMT "DON'T RORGET TO EX.AM I ME TH IM 

GS . " 
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GOTO -4-00 

FOR J=1 TO 4500 

NEXT J 

RETURN 

GOSUB 3220 

GOTO 3-4-T”© 

REM SAVE 
PRINT •• ra** 

OPEN 1 ^ 1 .. 2> "DATfl" 

CMC 1 

FOR jr=»l TO MM 

PRINT OB<J) : PRINT OL<J> 

MEXT -J 

PRINT M<44,1):PRINT &■*<•*-+> 

PRINT M<39, 1> =PRINT < 39> • PRINT M < 

> 

PRIMT M<32, 4> : PRINT M < 35 > 4) : PRINT C 

RRINT#1 
CLOSE 1 
GOTO 400 
REM LORD 
RR I MT ■* C3" 

OREM 1 ^ 1.0,. "DATA" 

FOR T*» 1 TO MM 
INPUT#L OB<J) 

IMPUT#1, OL<J> 

MEXT JT 

I NPIJT# 1 M<-4.-4-> 1 > 

I NPIJT# 1 - R* < -4.-4. > 

I NPIJT# 1 > M < 33 - 1 > 

I NPIJT# 1 > R^C < 33 > 

I NPIJT# 1 .. M < -4.0 . 1 > 

I NPIJT# 1 .. M < 32 .. <*> 

I NPIJT# 1 . M < 35 ^ -4- > 

I NPIJT# 1 ^ CP 
CLOSE 1 
PRINT "73" 

GOTO 400 

REM END OP GRME 

PRINT ■* 73 ** 

PRINT •• :#uaKmMnr a TAB C 7 > •• V O U " RE 

D E R D ! " 

print •• ^*cotI&I0XMIw!X#z*a0xrart&a•^ 

INPUT "TRY AGRIN";Q$ 

IP LEFT$< , 1 > =■ *’ V •• THEN RUM 
GOTO 3520 

print ■■ ra* 1 

PRINT OSolAIielAlEg'* TAB<6) " CCTHE TRERSU 

YOURS!> >" 

GOTO 3530 

print •• ra** 

END 


READY 



SNAKE 
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Here is a chance to find out how much snakes like to eat 
frogs and spiders. 

On the screen, hopping fortheir lives, are six frogs and an 
unlimited number of spiders who appear at random, as 
the game progresses. The spider, which grows 
continually, is under your control and you must keep him 
fed and alive. You see, also scattered around the screen 
are rocks and if you hit them, or double back and run into 
yourself, it's all over and the frogs and spiders live to 
fightanotherday. 

The spiders are worth 10 points and the puddle jumping 
frogs are worth 100 points. When you reach 1000 points 
a new screen will be generated. The same will occur 
should you be good enough to reach 2500 points. 


Howto play 

To move left and right use keys O and P 

To move up and down use keys Q and A 

The game features a "wrap round" screen so if you move 
off at the top you will reappear at the bottom. 


Graphics symbols 

Line 

290 Clear 
490 Home 
500 Cursor up 
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1110 Clear 
1340 Home 
1350 Cursor up 
1360 Home 
1540 Home 
1730 Clear 
1750 3 cursor down 
1810 4cursordown 
1880 Clear 
1930 Clear 
2120 Home 
2130 15cursordown 
2140 Cursordown 
2150 3 cursor down 
2160 Cursordown 
2180 Clear 


The program 


Lines 
130- 190 
210- 260 
270- 310 
330- 640 

660- 850 
870- 910 
930- 990 
1010-1090 

1110-1520 

graphics 

1540-1820 

1830-1940 

1950-2190 


Read in machine code for sound effects 
Main subroutine calling loop 
Generate new screen 

Look at keyboard and determine direction of 
snake 

Move next frog in sequence 
Sound subroutine 
Collision 

Delay routine for progressive difficulty of 
game 

Set initial values for game and define 
characters 

Display score at end of game and calculate 

and print high score table 

Deal with new game request or end of 

program 

Print title screen 
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1 00 
110 
1 20 
1 30 
1 *4-0 
1 50 
1 60 
1 7*0 
1 30 

1 30 
200 

2 10 
220 
230 
240 
230 
230 
270 
230 
230 
300 
3 10 
320 
330 
3*40 
350 
330 
370 
330 
330 
<400 
-4 10 
-420 
-430 
440 
430 
*4-t=>0 
-47*0 
-430 
-430 
500 
5 10 
230 
520 
230 
530 
5-40 
550 
530 
570 
530 
530 
300 
3 10 
320 
330 
3-40 
350 
330 
370 
330 
330 
7*00 
7* 1 0 
7*20 
730 
740 
750 
OTO 
730 
770 
730 
730 
300 
3 10 
320 
330 
3-40 
350 
330 
370 
330 


REM SHAKE 
REM 

REM READ M^C 
FOR J =43152 TO -43134 
READ B : POKE -J , B 
NEXT -J 

DATA 169,30,141,1,212,169,33. 

DATA 212,96,169,43,141,1,212, 

DATA 141,4,212,96,169,40,141, 

DATA 169,83,141,4,212,96 

REM MAIN ROUTIME 

GOSUB 1110 

GOSUB 330 

GOSUB 330 

GOSUB 1010 

POKE S-**4 > 0 

GOTO 220 

REM MEW SCREEN 

GOSUB 370 

RRIMT " TT* 

GOSUB 1340 
GOTO 220 

REM KEYBOARD SCAN 


K 

IE K = 32 THEM W=1 

IE K=10 THEM W=3 

IE K=33 THEM W=4 

IE K=41 THEM W=2 

IE W=1 THEM R»R—40 

IR W = 2 THEM R = R-*-l 

IE H = 3 THEM R = R-*-40 

IF - W = 4 THEM R = R — 1 

IE D4R<1064 THEM R- 

IE D+R>2023 THEM R= 

P-PEEK< D+R> 

IE P = 32 THEM 310 

IE P034 THEM 540 
SC»SC+100 
SVS 43152 
RRIMT 

RR I MT n- TAB < 1 2 > SC 
IE SO— 1000 AND SE a 


'R+960 
‘R— 330 


° 0 THEM SE = 


141,4 
1 »=>3,33 
1,212 


1 = GOTO 


IE SO—2500 AND SO—0 THEM SG= 1 GOTO 

GOTO 310 

IE R<>35 THEM 530 

SVS 43174 
SC-SC+10 
GOTO 430 

IE R036 AND R<>33 THEM 310 

GOSUB 330 

GOTO 1540 

POKE riH-R 33 

POKE C + R.. 2 

SVS 43133 

RETURN 

REM MOVE EROGS 

E = E-*- 1 

POKE S-*-4 .. 0 
IE E—7 THEM E—1 

IE EM < E > =—1 THEM 350 

M— I MT < RMD < 0 > 4*4 > -*- 1 


I E 

M— 1 

THEM 

IM——40 

I E 

M —2 

THEM 

I M— 1 

I E 

M—3 

THEM 

IN-40 

I E 

M —4 

THEM 

IN—1 


IE REEK <D-fFM<F) >034 THEM EM < E > =— 1 : G 
350 

ROKE D + EMCE) 32 
EM < E> —EM <F) + IN 

IE D-* , FM<E)<1064 THEM EM < E > — EM < E > -f-330 

IE D+FM<E>>2023 THEM EMCF>=EM<E>—330 

IE REEK < B-t-EM < E > > — 32 THEM 330 

EM<E>—EM<E>—IM 

GOTO 730 

ROKE C+EM<E),5 

ROKE D+EM< E > > 34 

RETURN 

REM SOUND SUBROUTINES 

FOR GS—1 TO 255 

ROKE S4l,GS = POKE S-*-4,33 



tfi JiMiMh :0)(UQC!IUUtilUICjlCIIUICA££*£tJi£li££Wii!liHO id 0 CO CO U CO NNNWWMWNIOWH>*HHHHHMHM0B®08QO(5®GiU>flN(&i:.i|MONHS> 
•J(fiC(|k0M• H0(fi05'Jffiu^COMK®COffl- jj,fijoo)f.j^0'0fflMffiCOU-MOM^O <0(0 "l fi01A(0 Wh©0-\|ACMCON►*S0 (Si Nffi(ItCOM►*fiffi®00000000 
0000000000000000000000000000000000000000 000000000000000000000000000000 
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890 


POKE S-*—4 , 0 
NEXT GS 
RETURN 

REM COLLISION 

FOR SN-1 TO 80 

POKE S-M,40:POKE S + 4,33 

POKE D+R.32 

ROKE S+--4 , O 

POKE ri-*-R>33 

NEXT SN 

RETURN 

REM DELflV ROUTIME 
L_R=-l_R-+- 1 

IE RNDC0KLFI/30 THEM 1 0-4-0 
GOSUB 1050 

EOR DE=» 1 TO 230-LFi : NEXT 

SP» I NT < RND < 0 > 541930 > -<--40 

IE PEEK<D+SP><>32 THEM 1030 

ROKE D+SP.35 

ROKE C+SP.6 

RETURN 

REM INITIRLI2E 
RRIMT '• 72" 

ROKE 55 , 0 : ROKE 36>36 
RRIMT CHR*<142> 

ROKE 56334 , PEEK < 56334 > AND 25-4 
ROKE 1 , REEK < 1 >HMD 25 1 
EOR J=0 TO 511 

ROKE -I-*- 1 4336 , REEK < J+33243 > 

MEXT J 

ROKE l.PEEKCUOR -4 
ROKE 56334 > PEEK < 56334 > OR 1 
ROKE 53272, < REEK < 53272 > HMD 2-40 >-<-1-4 
FOR J=»14600 TO 1 4639 
READ El : ROKE J , Jj 
MEXT J 

DATA 2-4 , 30 , 1 23 , 255,255 , 1 23 , 30 , 

DhTR 1 33 .■ 1 53 , 1 26,30 > 60 , 33 , 33,3 
IlHTA 1 23 , 33 , 1 53 , 1 27 , 2-4 , 1 27 , 1 53 
IiRTFl 56 , 1 23 , 255,255,255,255,25 
DRTh 255 , 255 , 255,255 > 255 , 255 , 2 


D*1024:0=55296 

ROKE 53231,0 POKE 53230,2 
ROKE 3-43, 1 

IR F 3 = 0 THEM E3=- 1 GOSUB 1350 
RRIMT "W 

RRIMT n SCORE: •• SC 3PCC7) " H 

• RE : " HS 

RRIMT ■•Sa** 

ROR ..X =• 1 TO 30 

R=» I MT < RND < 0 > *950 > <-40 

ROKE D+R,33 

ROKE C-*-R , -4 

MEXT .J 

ROR -J= 1 TO 3 

FM< JT > = I MT < RND < 0 > *950 > -*--40 

ROKE D + FM C J > , 3-4 

ROKE C+FM < .J > , 5 

MEXT J 

S*54272 

Ul = 2 : R=»3 1 

ROR L_=*S TO S+23 ROKE L. , 0 MEXT L_ 

ROKE 3+24,15 
ROKE S+3,240 
RETURN 

REM END OR GAME 

RRIMT 

ROR J = 1 TO 13= RRIMT •• M M MEXT .J 

RRIMT "VOUR SCORE : "SC 
ROR GA=1 TO 10 
OET G^ 

MEXT GA 

INPUT "VOUR NAME";NM4 

IR LENCNM*)>12 THEM RRIMT "TOO LONG 
TO 1300 
SR < 10) =»SC 
M:* < 10)=NM4 

ROR J=10 TO 2 STER—1 
IR 3A<JXSA<J-1> THEM 1720 
TP=SACJ-1> 

T^ = M^: < JT— 1 > 


UCJh J,M 
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1680 

1 *53© NS < .J— 1 > = N^ < .J > 

1700 3fl<J>*TP 
1710 NSCJ)»TS 
1720 NEXT -J 

1730 PRINT ’• 71“ 

1740 PRINT TRB< 10 > "HIGH SCORE TRBLE" 

1750 PRINT " ■Hfing** 

1760 FOR M—1 TO 3 

1770 PRINT TflB<5>M" SR < M > •• " ; 

1780 PRINT M4C < M > 

1790 NEXT M 

1300 RRINT■RRINT 

13 10 PRINT TRB < 3 > " WBIRftRRESS R TO RLflV" 

1320 PRINT TRB<14>"S TO STOP" 

1330 OET 

1340 IF Q<*=. •• •• THEN 1330 

1350 IF Gi&<> *• R" THEN 1300 
I860 LR=*0 : SC»0 : HS=SR < 1 > 

1 370 SF=*0 : 3G-0 

1330 print ••ra ,# 

1330 GOSUB 1350 : GOTO 220 

1300 POKE 646, 1 -4 POKE 5328 1,6 

13 10 POKE 53280, 1*4 POKE 53272,2 1 

1320 POKE S-»-24,0 

1330 PRINT *• 72" 

1940 GOTO 2200 
1950 PERD B 

1330 IP B = —1 THEN 2120 
1970 POKE D+B,37 
1330 POKE C-»-B.. 5 
1330 OOTO 1350 

2000 DRTR 1 *5-4 . 1 *55 .. 166, 170, 174, 178, 179 

20 10 BRTR 130.. 13-4. 133.- 191,192, 193, 134 

2020 BRTR 193,203,207,210,214,217,221 
2030 BRTR 224,227,231,243,250,251,254 
2040 BRTR 257,261,264,266,271,284,285 
2050 BRTR 286,290,292,294,297,293,299 
2060 BRTR 300.301.304,305,311,312,313 
207Q BRTR 314, 327* , 330 ^ 333,334 .. 337.34 1 
20S0 BRTR 344,346,351,363,367,370,374 
2030 BRTR 377,331,384,387,391,404,405 
2100 BRTR 406,410,414,417,421,424,428 

2 110 BRTR 43 1 432 .. 433 434.435 . — 1 

2120 PRINT ” 5=3* ‘ 

2 130 PRINT ’• ■• TRB<9> ’ 1 O X P 

POP LEFT/RIGHT" 

2 140 PRINT "WTRBC 10> "Q/fl POR UP/DOWN" 
2 150 PPINT " MBW" TAB C 8 > "FROGS SCORE 100 P 
OINTS" 

2160 PRINT "M"TflB<8>"SPIDERS SCORE 10 PQ 

1 NTS •* 

2170 POR BE=1 TO 13000 NEXT 

2 1 80 PRINT ,, C3” 

2130 RETURN 
22O0 ENB 


♦ 
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CATERPILLAR 


Horror of horrors — if you hate creepy crawlies and 
spiders this is not the game for you. 

You are being chased around the screen by a fast 
advancing caterpillar and "six" giant red spiders. 
Scattered around the screen are a number of purple 
toadstools and yellow mushrooms. If you eat one of the 
mushrooms your movement will speed up for a short 
time but — if the caterpillar eats one of the toadstools its 
speed will increase fora shorttime. 

You can gain 10 points for each segment of thecaterpillar 
you shoot, and, because the spiders are really bad news, 
100 points for each one destroyed. If you are sharp 
enough to hit the caterpillar between the eyes on its 
orange head, be warned — it will regenerate from a 
random position on the screen. 

The game will end if the caterpillar orthe spiders get you 
or if you collide with the segments of the caterpillar. 


How to play 

To move left and right use keys O & P 

To move up and down use keys Q & A 

To fire, press keys W & S for up and down and L & : for left 
and right. 
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Graphics symbols 


Line 

646 

Home, cursor up 

700 

Clear 

920 

Home 

930 

Cursor up 

940 

Home 

1170 

Clear 

1178 

3 cursor down 

1180 

3 cursor down 

1182 

1 cursor down 

1184 

3 cursor down 

1186 

Cursor down 

1188 

3 cursor down 

1190 

Cursor down 

1500 

Home 

1520 

Cursor down 

1740 

Clear 

1760 

3 cursor down 

1820 

4 cursor down 

1880 

Clear 


The program 


Lines 


25- 

35 

40- 

80 

100- 

190 

200- 

380 

410- 

610 

614- 

672 

700-1160 


Call initial subroutines 

Main subroutine calling loop 

Look at keyboard and move 

Move next spider in sequence towards 

victim 

Move caterpillar 

Shoot in direction indicated by key pressed 
Set initial values and define graphics 
characters 


/ 
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1170-1194 Printtitle screen 
1200-1360 Collision with caterpillarand spider 
1400-1470 Read machinecode routines 
1500-1830 Calculateand printhigh score table 
1840-1920 Deal with new game request or end program 


IQ REM CflTERPILLflR 

20 REM 

25 GOSIJE 1170 
30 GOSIJE 700 
35 GOSIJE 1400 
37 REM MRIM LOOP 
-4.0 GOSIJE 1O0 
-45 GOSIJE 614 
50 GOSIJE 200 

55 IE :3C<500 THEM GOSIJE 100 : GOSIJE 614 
j55 GOSUB -4-10 

7*0 IE 3C< 1560 THEN GOSUB 100 : GOSUB >514 

75 IE 3CC3000 THEM GOSIJE 160: GOSUB 614 

30 GOTO -40 

30 REM SCftN KEVBORRD 
100 K=PEEK<137> 

165 IE K =*33 THEM P —P— 1 

116 IE K—4 1 THEM P-P+l 

115 IE K —«S2 THEM P = P —46 

126 IE K*10 THEM P*P+40 

125 IE P<1034 OR P>2023 THEM P*OP 

136 IE P=OP THEM 130 

135 IE PEEK < R > »33 THEM 1200 

140 IE REEK CP)=35 THEM 1300 

145 IE PEEK CP>=37 THEM R—OR’GOTO 136 

150 IE PEEK<P><>36 THEM 17-0 

152 POKE R . 32 

155 EOR E4*1 TO 10 

130 GOSUB 100 

1 c52 GOSUB 314 

135 NEXT E4 

17*0 ROKE OR >32 

175 ROKE R>34 

130 ROKE C+P-1024,3 

135 OP=P 

130 RETURN 

135 REM MOVE SPIDER 
206 E=»E+1 

216 IE E —7* THEM E — 1 

226 IE REEK<FM<F>>a33 THEM 230 

222 EM (E>=»i MT < RMD < 6 > **350 > + l 624 

223 IE REEK < EM < E > >032 THEM 222 

224 GOTO 363 

236 ROKE EM < E > > 32 

246 EM < E > —EM < E >—SON< IMT < < EM < E > —1624 >/40> 
— IMT < < R—1624 >/40> > #40 

250 EM < F > —EM < E > —SGM < < EM < E > — I MT < •. EM <E>-10 

24 > /40 >'#40 > — < R— I MT < < R— 1 624 > 740 > #40 > > 

270 IE REEKCEM<E>>—32 THEM 363 

230 IE REEK < EM < E > >034 THEM 360 

230 EOR E1 — 1 TO 30 

360 ROKE EM < E > > 32 

310 SVS 43174 

320 ROKE EMCE>,35 

324 POKE EM < E > -*-C— 1 024 > 2 

336 ROKE 3+4> 6 

340 MEXT E1 

350 GOTO 1500 

360 EM < E > —EM < E > +SGM < EM < E > — < R— I MT C P/40 > *•4 

> EM < E >-p>40> > #VR 

3e55 ROKE EM < E > > 35 

370 ROKE EMCE>+C—1 024 > 2 

330 RETURN 

460 REM MOVE CflTERPILLflR 

410 IE REEK<OR>—33 THEM 423 
414 CP*» I MT < RND < 0 > #950 > + 1 064 
416 IE REEK < OR >032 THEM 4 14 
422 GOTO 530 
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•4*2:3 POKE C + CP—1024,3 

■4.30 CP*CP — SGN C I NT < < OR— 1 024 > X-40 > — I NT < < R — 1 

024 > X-40 > > *40 

■4.3*4. CP-CP-SGN < < OR— I MX < < OR— 1 024 > /40 > *40 > — 
< R— X MX < < R— 1 024 > X-40 > 4**40 > > 

440 IF REEK<CR>»32 XHEM 590 

450 IF REEK<CR><>34 XHEM 530 

460 FOR Pl = l XO 60 

470 POKE OR,32 

480 SVS 49152 

490 POKE OR- 33 

*4-99 *4- POKE C+CR-1024,5 

500 POKE S+4,0 

510 MEXX R1 

520 GOXO 1500 

530 IP REEK < OR >037 XHEM 530 

534 POKE OR>33 

536 POKE CP+C-1024,5 

5-40 FOR P 1 = 1 XO 10 

550 GOSIJB -4 10 
560 MEXX PI 

530 POKE C+CP—1024 > 3 

535 SVS 49163 

600 POKE OR>33 

610 REXIJRM 

612 REM SHOOT? 

614 K=*REEK< 197) 

615 FD*0 

SIS IP K=-3 XHEM PB™ — -40 
S13 IP K=» 1 3 XHEM FD-40 

S20 IP K=»42 XHEM FD-— 1 

622 IP K-45 XHEM PD=* 1 

624 IP FD=0 XHEM 670 

626 POKE S+l>100 
S2S POKE S-+-*4> 123 
S30 PP=»P 

S32 POR F2* 1 XO 7* 

634 FRapp+RD 

S3S IP REEK < PR >=-32 XHEM SSS 

S3S IP REEK < PR >033 XHEM 654 

640 POKE S+l>15 
642 POKE S+4,83- 

644 SO»SC*10 

646 PR I MX •' ••sn"XRB<12>SC 

645 POKE FR>32 
S50 POKE S-*--4>0 
S52 GOXO SSS 

654 IP REEKCFRK>35 XHEM SS-4 
SSS POKE s-*-1 > 10 
658 POKE S+4,33 
660 SO*5C+100 

S S 2 GOXO S -4 fa 

SS-4 IP PEEK < PR > =»3fa OR REEK < PR > »37 XHEM S 

7*0 

SSS MEXX F2 

670 POKE 3-^-4 > O 

672 REXURN 

S30 REM IMIXIRLI2E 

7*00 RRIMX ** 73*‘ 

7*10 POKE 55 > O POKE 56 > 56 

7*20 RRIMX CHRi < 1 -42 > 

7*30 POKE 56334 > PEEK < 56334 > RNB254 
740 POKE 1 > PEEK <17* RND25 1 
7*50 POR JT-.0 XO 511 

760 POKE J+14336, PEEK < J+53243> 

7*7*0 MEXX JT 

7*30 POKE 1 > PEEK < 1 > OR4 

7*30 POKE 56334 > PEEK < 56334 > OR 1 

300 POKE 5327*2 > < PEEK < 5327*2 > RND240 >-*-14 

310 POR J-14600 XO 14639 

320 RERB ID : POKE -J > ID 

330 MEXX -J 

3-40 BRTR 24>60> 126>255,255> 126,60,24 
350 DRXR 56 > S3 > 56 > 1 03 1 7*0 > 56 > S3 > 1 33 

SS0 DRXR 1 23 > 136, 1 53 > 127>24> 1 27* > 1 53 > 36 

37*0 DRXR 24>60, 126,255> 255,24> 24,24 
330 DRXR 24>24,126>221>137,24,24,24 
330 D=» 1 02-4 : C-55296 

300 POKE 53231>0:POKE 53230,5 
310 POKE 646,1 
320 RRIMX " 

330 RRIMX " !~3 SCORE "SC SRC < 7* > 


HI S 
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CORE: "MS 

340 PRINT '* «*■ 

950 S=54272 

960 FOR L=»3 TO 3+23 ■ POKE L .. 0 : NEXT L 
970 POKE S+24,15 
980 POKE S+6 , 240 

330 for _r=* i to 20 

1000 R=INT < RND < 0)*950)+40 
1O10 POKE D+R.36 
1020 ROKE C-*-R > 7* 

1030 NEXT J 

1040 FOR -J=» 1 TO 10 

1050 R = I NT ■; RND < 0 > «950 > +40 

1060 ROKE D+R.37 

107*0 ROKE C+-R , -4 

1080 NEXT J 

1090 FOR J"=- 1 TO 6 

1 1 00 FM < J > =* I NT < RND < 0 > ^950 > -+- 1 064 

1110 ROKE FM<J),35 

1120 ROKE C+FM<J)-1024,2 

1 1 30 NEXT -J 

1140 P=2004:OP-2005 

1160 RETURN 

1165 REM TITLE SCREEM 
117*0 PRINT •' 7T* 

1172 ROKE 53281,7 
1174 ROKE 53280,7 
1176 ROKE 646,2 

I 173 PRINT "(OTW" TAB< 12 > "CRTERRILLRR" 

1130 PRINT "Mnw" TflB<9> ** OXR FOR LEFT/ 

R I GMT ■* 

1132 RRIMT •* W TAB <10) '• QXR FOR UR/DOW 

M " 

1184 RRIMT "JSMW TAB<8> *' LX : FIRE LEFT 

/RIGHT" 

1186 RRIMT l” TAB<9) " UIXS FIRE UR/DOW 
M " 

1138 RRIMT "SIMM" TflB<3) "BODV SEGMEMTS 

SCORE 10 POINTS" 

1130 RRIMT '• W TAB<6) "SPIDERS SCORE 1 

00 POINTS" 

1132 FOR D=1 TO 15000 NEXT 

II 3-* RETURN 

1133 REM END ROUTINES 

1200 FOR Fl-1 TO 30 

1210 ROKE R,32 

1220 SVS 49152 
1230 ROKE R,33 
12-4-0 ROKE S-*-4,0 

1250 NEXT FI 

1260 GOTO 1500 
1300 FOR Fl=»l TO 30 

1310 ROKE R,32 
1320 SVS 49174 
1330 ROKE R,35 
1 3-4-0 ROKE S+4,0 

1350 NEXT E1 

1360 GOTO 1500 

1330 REM READ MACHINE CODE 
1400 FOR MC-49152 TO 49184 
1-4-10 READ B ^ ROKE MC,B 
1 -420 NEXT MC 

1 -430 DATA 1 S3 , 30 , 14 1,1,212, 1 69,33,141,4 

1 440 DATA 212,96 , 1 S3 , -45 , 1-41, 1,212, 1 S3,33 
1450 DMTH 141,4,212,96, 1S3,40, 14 1,1,212 
14S0 DATA 163,33,141,4,212,96 
1470 RETURN 

1430 REM HIGH SCORE TABLE 
1500 RRIMT ■* 43* * 

1510 FOR T=1 TO 13 
1520 RRIMT " W 
1 530 NEXT -J 

1540 RRIMT "VOUR SCORE : "SC 

1550 FOR GA®1 TO 10 

15S0 GET G& 

157*0 NEXT GA 
15S0 MM*»"" 

1530 INPUT "VOUR NAME ••J MM^ 

1S00 IF LEM < MM$><15 THEM 1630 
IS10 RRIMT "TOO LONG" 

1S20 GOTO 1580 
1S30 SR <10)=SC 


'■!) '0 tfi CO CO CO CO CO CO CO CO (Si CO OO - J N ‘\l "0 N " J M-sl'J M Oi (Ti Oi Oi Oi Oi 
M * 0 ‘0 CO CO ’J Oi U b iO M h ® (o CO -J fliU1* (J M ^ B CO 00- J Oi CO 4- 
C5iS5lCl|Q<Si3S!5)iSQ0SlOiS£'i3iSiSliSQiSQ0Q0©iS£ , iS | 
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M:£ < 1 0 > = MMrS 

FOR J=10 TO 2 STEP —1 
IF SRCJ>CSflU-l> THEM 1730 
TP—SR < -J— 1 > 

Ti=»N3t .J — 1 > 

SH < J-— 1 =»SR < .j y 

m* < -j— i > =m$ < j- > 

SR< J > =TP 
MS< T> aTS 
MEXT J 
PRIMT •* 73" 

PRINT TRB < 10 > "HIGH SCORE TABLE" 

print " jaww 

FOR M=» 1 TO 3 

PRINT TflB<3> M '• '• SR CM) " " ; 

RRIMT M*<M> 

MEXT M 
PRIMT = RRIMT 

RRIMT TRB < 3 5 " IMWWHF’RESS R TO RLflV" 
RRIMT TRBC14)"S TO STOP" 

GET GlJe 

IF QrS — *■ •* THEM 1840 
IF QSO" R ** THEM 130*0 
SC=*0 : HS=»SR < 1 > 

RRIMT ** 71“ 

GOSUB 320 
GOTO -40 
POKE 43152,0 
SVS -43 152 
END 

RERIDV . 
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MORSE CODE 


In case you were thinking of going on a sailing holiday 
and wanted to brush up your morse code, we have 
included this item for you. 

You will have the choice of random letters, random 
words, sending and receiving messages in code. 


Howto play 

1. Random letters. 

This will send random letters at a selectable speed 
with an optional display of the letter. 

2. Random words. 

Words from the data list in lines 940-970 are taken at 
random and sounded in morse code. After a short 
pause you will be asked to input the word. You can, of 
course, alter the list of words to suit any level of ability 
from beginnerto advanced. 

3. Send message. 

This section enables you to send a message of your 
choice. Make sure that the length of the message does 
not cause the input statement to exceed the 
maximum length of two screen lines. 

4. End. 

Stops the program. 


Programming hints 

At maximum speed the random letter generator will 
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send at approximately 60 characters per minute, which is 
adequate forthe Radio Amateur's morse test. Ifyou area 
beginner to morse code, don't try and memorize the 
individual dots and dashes for a letter. Listen to the 
overall sound as each is sent, and you will be surprised 
just how easily it can be learnt. 


Graphics characters 

Line 

290 Clear, 2 cursor down 

300 cursor down 

310 cursor down 

320 cursor down 

324 cursor down, 3 cursor down 

370 clear 

600 cursor down, cursor down 
620 cursor down, cursor down 
662 2 cursor down 
990 clear 


The program 


Lines 

120-180 

190-270 

290-340 

350-360 

400-480 

500-646 

660-780 

800-894 

900-930 

940-970 


Set sound registers 
Dimension arrays and read data 
Print menu and input choice 
Input speed 
Random letters 
Random words 
Send message 

Subroutine to sound morse code 
Morse code data 
Word date 
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100 REM MORSE CODE 

110 REM 

120 3=54272 

130 FOR T=S TO S+23 

140 POKE J,0 

150 MEXT T 

1 60 ROKE S-*-34> 15 

170 ROKE S+6,240 

1S0 ROKE S+1,66 

190 DIM MfC26) r l»J$<20> 

300 REM RERD IM DRTR 

310 EOR -J = 1 TO 26 

330 RERD M T < T > 

330 MEXT J 

3-40 REM RERD IM WORDS 

350 FOR -J= 1 TO 30 

360 RERD Ul :T < -J > 

370 MEXT -J 

380 REM RRIMT MEMO 

390 RRIMT •' rXeaW 

300 RRIMT "Ml. RRMDOM LETTERS’* 

310 RRIMT ” JOS - RRMDOM WORDS" 

330 RRIMT " *J3 - SEMD MESSRGE ** 

334 RRIMT ” J*>4 - ENDMRM" 

330 IMRUT "OPTIOM"JW 

33-4 IF W = 4 THEM 980 

340 IF W< 1 OR W>3 THEM 330 

350 IMRUT "SPEED Cl TO 100 >"i SR 

360 IF SR>100 OR SRC1 THEM 350 

370 RRIMT ,, r3” 

3S0 OM W GOTO 400,500.660 

390 REM RRMDOM LETTERS 

400 IMRUT "DISPLAY CY/N)";Q» 

410 FOR T=1 TO 100 

430 R=*=IMT CRNDC0>#26> + 1 
430 IF *■ M *’ THEM 450 

440 RRIMT CHR$C R + 64> " " > 

450 GOSUB 300 

430 MEXT T 

470 FOR DE=1 TO 3000:NEXT 

430 GOTO 330 

430 REM RRMDOM WORDS 

500 FOR G=1 TO 10 

503 FOR DE=1 TO 3000 : MEXT 

510 RW=INT(RMDC0>#30)+1 

530 FOR T=1 TO LEN(W$<RW)> 

530 Lif = MID^c;W*<RW),T, 1) 

540 R=RSC<L$>-64 

550 GOSUB 300 

530 MEXT T 

570 FOR DE=1 TO 1000 MEXT 

530 IMRUT "WHRT WRS THE WORD" J R* 

530 IF R40W1: C RW > THEM 630 
600 RRIMT "WCORRECTIW" 

610 GOTO 630 

630 RRIMT "WTHE WORD WRS "W*<RW>"M" 

630 MEXT G 

640 FOR DE=1 TO 3000 MEXT 

646 GOTO 330 

650 REM SEMD MESSRGE 

660 IMRUT "WHRT IS VOUR MESSRGE”iR* 

663 RRIMT "WW" 

670 FOR T=1 TO LEN<Rf> 

630 L$*MID$<A$,T,1> 

630 RRIMT L^> 

700 IF L^O” ” THEM 740 

710 FOR DE=1 TO 300 

730 MEXT DE 

730 GOTO 760 

740 R*RSC<L$>-64 

750 GOSUB 300 

760 MEXT T 

T’T’O FOR DE= 1 TO 3000 MEXT 

780 GOTO 330 

300 FOR -J = 1 TO LEM (M$(R) > 

310 ROKE S+4,83 

830 FOR DE*= 1 TO 22*VRL(MID»(M*<R> , J, 1 ) ) 

830 MEXT DE 

840 ROKE S+4> 0 

350 FOR DE= 1 TO 7*0 






25 


860 
870 
880 
890 
894 
900 
9 10 
920 
930 
940 
RHD 


NEXT DE^-J 

REM SPEED DELAY 

FOR DE*1 TO 1100-SP*10 

NEXT DE 

RETURN 

DATA 13,3111,3131,311,1..1131,331 

DRT R 1111,11,1333,313, 1311,33 

CRTR 31,333, 1331 - 3313, 131,111,3 
DRT R 113, 1113,133,3113,3133 .. 331 1 

CRTR COMPUTER, RANDOM . RECORD-. CONTACT, 
I O 


930 DATA 
TEL 

960 DATA 
R VO 

970 DATA 
AVDAV 
980 POKE 
990 PRINT 
10©0 END 


ESTABLISH,ENABLE,ALPHA,ZEBRA,HO 
POND -• FOXTROT -.MI GHER .. POSS I BLE ^ BR 
D I GEST -■ MESSAGE .. REFLECT .. QUEBEC .. M 
S + 24.0 

#, ra** 
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RESCUE 


If you have ever fancied being a valiant knight in shining 
armour, you now have the chance. A fair maiden has 
been imprisoned in the black magician's castle and you 
are her only hope of release within the time limit. 


How to play 

The magician's castle will be found at the top right of the 
screen. From your starting position in the bottom left you 
must move up to the castle to complete your task. 

Not unnaturally, the evil magician is a little peeved at 
your intrusion into his affairs and is hurling large moss 
covered green boulders at you. These magical boulders 
will kill you if you bump into one, or are unlucky enough 
to be underneath one when it falls. 

To further compound your problems, the magician has 
sent his two dastardly boulder-crunching henchmen 
after you. Luckily these two are both stupid and violent, 
and can sometimes clear a path for you, as long as you 
keep a respectful distance. 

Move using keys O and P for left and right, and Q and A 
for up and down. To ease your burden, the time limit can 
be increased via line 1782, and/orthe number of boulders 
at the start ofthe game via line 1610. 





Graphics characters 


Line 

670 

Home 

680 

10 cursor down 

1110 

Home 

1120 

10 cursor down 

1140 

Home 

1210 

Clear 

1250 

5 cursor down 

1260 

8 cursor down 

1270 

Cursor down 

1590 

Clear 

1900 

Home 

1940 

Clear 


The program 


Lines 

120- 130 

Initial subroutines 

140- 180 

Main subroutine calling loop 

200- 300 

Knights new position 

310- 470 

Hit rock 

480- 570 

Caught by henchman 

580- 690 

Reached castle 

700- 740 

Move knight 

800- 900 

Move henchmen in turn 

920- 950 

Throw boulder 

1000 

Decrement time left 

1020-1130 

Out of time 

1140-1160 

Print time left 

1210-1300 

Title screen 

1400-1580 

Define characters and set initial values 

1590-1690 

Set up screen at start of gamee 

1720-1760 

Set sound registers 

1900-1990 

End of game 
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10O REM RESCUE 

110 REM 

120 GOSUB 1210 

130 COSUB 1400 

135 REM MRIN LOOP 

140 GOSUB 200 

150 GOSUB S00 

160 GOSUB 320 

162 GOSUB 200 

170 GOSUB 1000 

1S0 GOTO 140 

130 REM LOOK RT KEYBOARD 
200 K=PEEK(197> 

210 IE K=38 OR K—41 OR K=62 OR K= 1 0 

250 

220 EOR DE=1 TO 15 

230 NEXT BE 

240 GOTO 740 

250 IE K=38 THEN R = R —1 

260 IE K = 4 1 THEN R = R-t-1 

270 IE K=62 THEN R=R—40 

280 IE K=10 THEN P=R+40 

230 IE RC1064 OR R>2023 THEN P*OP 

232 IE C R-D >/40=INT( < R-D >/40) THEN R = 

300 IE R=OR THEN 740 

305 REM ROCK 

310 IE REEKCRK>34 THEN 480 

312 POKE OR.32 

320 ROKE S-t-1. 12 

330 ROKE S+4,123 

340 EOR DE=1 TO 50 

350 NEXT BE 

360 ROKE S+4,0 

370 EOR J = 50 TO 10 STEP-1 

3S0 ROKE R . 33 

330 ROKE S-*-l . J 

400 ROKE S + 4 733 

410 EOR BE=1 TO 10 

420 NEXT BE 

430 ROKE P,34 

440 ROKE S-t-4.0 

450 EOR BE =1 TO 10 

460 NEXT BE .J 

470 GOTO 1300 

4S0 IE REEK CR)037 THEN 580 

4S2 ROKE OR.32 

430 EOR -J=l TO S0 

500 ROKE S-+- 1.60 

510 ROKE S+4,83 

520 ROKE P.33 

530 ROKE S-t-4.0 

540 EOR BE=1 TO 10 

550 NEXT BE 

560 ROKE R.37 

570 NEXT -J 

572 GOTO 1300 

575 REM CRSTLE 

5S0 IE REEK < R > C>35 AND PEEKCR)<>36 Tt 

700 

5S2 ROKE OR.32 

530 EOR J=1 TO 4 

E00 READ N.BU 

610 ROKE S-*-l.N 

620 ROKE S+4.33 

630 EOR BE=1 TO BU*8 

640 NEXT BE 

650 ROKE S-t-4.0 

660 NEXT -T 

670 PRINT , •^=S ,, 

680 PRINT ■■ T RB < 12) M VOU 

E IT *■ 


630 

GOTO 

1 300 

700 

ROKE 

S-t- 1.35 

702 

ROKE 

S-t-4.33 

706 

ROKE 

OR . 32 

710 

ROKE 

R . 33 

720 

ROKE 

C-t-R — B . 

730 

OR = R 


732 

ROKE 

S-t-4.0 

740 

RETURN 
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800 F = R-+ 1 

S10 IF E=3 THEN R= 1 

820 POKE M(F>,32 

33@ m <: r > = m <: r > -sgn c i ht < m < r > —d > /4@ > — i nt < < 

F* — D :• /40 > > *40 

840 M(R> =r*1 C R > —SGN < (MCR)-I MX C CMCR) —D > X40 > 

*-40 > — < r— i mx c; <: r— ri > /4@ *40 > > 

850 IR PEEKC M<R > >=32 OR REEKCMCR) >=34 XH 

EM 330 

330 IR REEK < M < R > > >==35 HMD REEKCM<F) )<*37 
THEM 300 

870 IR REEK<M<R>>=33 XHEM 430 

330 POKE S-k 1,55 

333 POKE S+4,83 

386 POKE M C R > .. 37 

330 POKE C-+M CR>-D , 2 

333 POKE S+-4.0 

300 REXIJRM 

310 REM XHROW ROCK 

330 RK=IMX < RMD<0 >*333 >+40 

333 IR PEEK < RK+D> =33 XHEM 330 

333 IR PEEK CRK + D> =33 OR PEEK <RK + D>=33 XH 

EM 350 

330 POKE n + RK .• 34 

340 POKE C+RK,5 

350 REXURN 

330 REM DECREMEMX XIME LEFX 
1000 X L = X L —1 

1010 IR XL>=0 XHEM 1140 

1030 ROR -_T = 50 XO 13 3XEP— 1 

1 030 POKE S-+ 1 .. T 

1040 POKE S+4,83 

1050 ROR DE=1 XO 30 

1030 MEXX DE 

1 070 POKE S+-4. 0 

1030 ROR DE=1 XO 10 

1030 MEXX ZiE 

1100 MEXX T 

1110 pr i mx ••sa** 

1130 PR I MX ** THE (11) " OUX OR 

X I ME ,# 

1130 OOXO 1300 
1140 PR I MX ’* J 

1150 PR I MX XflB<22) SXR^ < XL > “ •• 

1169 REXURN 

1300 REM XIXLE SCREEN 

1310 pr i mx ••ra*' 

1330 POKE 53381,3 
1330 POKE 53380,3 
1340 POKE 646,7 

1350 PR I MX ■■ rarXraraja" xrb<15) "RESCUE" 

1330 PR I MX 11 IQMKDBaftKDOKl* 1 XRB<10> "O/P ROR L 

ERX/R I OHX ■' 

1270 PRIMX "W XHB(11) "Q/fl ROR UP/DOWN" 

1230 ROR DE=1 XO 3000 

1230 MEXX DE 

1300 REXIJRM 

1330 REM INIXIflLIZE 

1400 POKE 55,0 

1410 POKE 56,56 

1420 PRIMX CHR$<142) 

1430 POKE 56334,PEEKC56334>RMD 254 
1440 POKE 1 , PEEK < 1 > FIND 25 1 
1450 ROR -J = 0 XO 511 

1430 POKE ,T+ 1 4336 , PEEK < J+53248 ) 

1470 MEXX JT 

1430 POKE 1 , PEEK <i 1 > OR 4 

1430 POKE 56334 , PEEK <. 56334 > OR 1 

1500 POKE 53272, d PEEK C 53272 > RMD 240 >+>14 

1510 ROR J=14600 XO 14333 

1520 RERD D : POKE J . D 

1530 MEXX J 

1540 D=1024 

1550 C=55233 

1530 POKE 53281,0 

1570 POKE 53230.15 

1530 POKE 343.. 1 

1530 pr i mx " ra" i 

1300 PRIMX XRB< 12 > "XIME LERX 99" 

1310 ROR J=1 XO 300 
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1612 
1 620 
1 622 
1 630 
1 640 
1 650 
1 660 
1 670 
1 680 
1 699 
1 700 
1710 
1 720 
1 730 
1 740 
1 750 
1 760 
1 770 
1 780 
1 782 
1 790 
1 795 
1 800 
1810 
1 820 
4 

1 830 
6 

1 340 
1 845 
1 850 
1 890 
1 900 
18 10 
18 12 
1914 
1916 
1 820 
1 830 
1 940 
1 850 
1 852 
1 954 
1 956 
1 958 
1 960 
1 970 
1 880 
1 880 


RK= I MX < RND < 0 > #959 > -*--40 
POKE RK+I034 
POKE C+RK,5 
NEXT -_T 

POKE 1101,35 
POKE 55373,7 
POKE 1 1 02 -• 36 
POKE 55374,7 
POKE 1945,33 
POKE 56217,4 
8=54272 
R= 1 8-4 5 : OP= 1 8-45 
FOR -J = S TO S + 23 

POKE J,0 
NEXT -_T 

POKE S+24>15 
POKE S+6,240 
M < 1 > = 1 135 
M < 2 > = 1262 
TL=89 
RETURN 

REM CHARACTER DAT8 

DATA 2-4 > 2-4 > 60 > 80 > 1 53 > 36 > 36 > 1 08 

DAT 8 60, 126.. 127,255,255, 126, 126,60 

DRTR 1 170 > 255 > 255 > 1 82 > 255 > 255 > 1 82 > 25 

DATA 1 7*0>254 .. 25-4,218,254>25-4 > 1 06 >12 


DRTR 2*4 > 60 > 1 26 > 255 > 255 > 1 85 > 23 1 > 23 1 
REM SOUND DRTR 

DRTR 33 > 50 > 45 .. 50 > 36 > 50 > 50 > 80 
REM END OR ORME 

PRINT ,, sa , ‘ 

EOR -J=l TO 23 RR I NT NEXT 

FOR T=1 TO 10 

GET GR$ 

NEXT -T 

INPUT "PLRV RGRIN";Q$ 

IE LEFT$ < > 1 > O'* V ” THEM 1 87*0 

PRINT " 73" 

GOSUB 1580 


EOR -_T=1 TO 40 
RERD GR 

NEXT T 
GOTO 140 
POKE 48152 > 0 

SVS 48152 
END 







LINE RENUMBER 
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This short but effective program will resequence all lines 
in your Basic programs. Some care is needed in its use, 
since we have to fool the computer into having two 
programs resident in memory at one time. Follow 
carefully the procedure set out below and you shouldn't 
have any problems. 


How to play 

1. Type in and save the line renumber program onto a 
tape and verify it. 

2. Turn off the power supply to the computer and turn 
back on. 

3. Loadthe line renumber program. 

4. Type : POKE 44,15 and press return. 

5. Load your Basic program to be renumbered. 

6. Type : POKE 44,8 and press return 

7. Type : RUN and press return. Input the new start line 
and increment when prompted. Wait until the 
computer responds with READY. 

8. Type : POKE 44,15 and press return. 

9. SAVE your now renumbered program onto tape and 
verify it in the normal way. Turn the computer power 
supply off and on. LOAD your program back into the 
computer. 
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Any gosub, goto statements will still of course have 
the old numbersand must be changed by hand. 


REM LIME RENUMBER 
REM 

X=3841 

INPUT "ME W START LIME'SLM 

IMRUT "IMCREMEMT"^IM 

NM = PEEK (X) +2564iPEEK C X-*- 1 > 

IE MM=0 THEM 220 

POKE LM— < < I MT < LN/256 > > *256 > 

POKE X+3,IMTCLN/256) 

LN=LM+IM 
X = NM 

GOTO ISO 
END 





BOMBER 
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As the pilot of a plane you are faced with a desperate fuel 
shortage. You are circling down towards a city which has 
been cleared of its population, foryour landing. 

Now you have one last chance. Can you bomb away the 
buildings and clear an emergency runway before it's too 
late? 


How to play 

Release your bombs by pressing the space bar. Buildings 
will be destroyed more quickly if hit at their base, so 
accuracy is more importantthan speed. 

If you manage to land your plane successfully, you will 
be faced with a second city with even higher buildings. 


Programming hints 

The game can be made easier if desired by reducing the 
height of the buildings you need to destroy. The easiest 
way to do this is to reduce the value of SK in lines 130 and 
2170 for the first city, and in lines 2360 and 2240 for the 
second city. 


Graphics characters 

Line 

510 Home 
770 Home 
1520 Clear 
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1670 Home 
1780 Home 
1800 Cursor down 
2020 Clear 
2050 3 cursor down 
2110 4 cursor down 
2160 Clear 
2350 Clear 
2390 Clear 
2430 5 cursor down 
2440 8 cursor down 


The program 


Lines 
120- 140 
160- 190 
210- 300 

310- 380 

420 

460 

470- 550 
560- 600 
620- 670 
680 

690- 870 
890- 920 
940-1200 
1210-1440 
1450-1470 
1470-1510 
1520-1690 
1710-1820 
1830-1850 


Initial subroutines 
Main subroutine calling loop 
Increment horizontal position & check for 
new level 

Horizontal position & new level on reverse 
pass 

Collision detection 

Look at keyboard to detect if space bar 
pressed 

Starting position of bomb 
Sound effects 
Move bomb and plane 
Bomb off screen 
Bomb hits building 
New bomb position 

Define initial characters and set initial values 

Read in sprite data 

Set screen and inkcolours 

Set sound registers 

Print city for start of game 

Plane crashes into building 

Clear keyboard buffer 
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1860-2120 

2130-2220 

2240-2340 

2350-2370 

2390-2460 


Calculate and print high score table 
Newgame values 

Sound effects for successful landing 
Print second city 
Title screen 


100 REM BOMBER 
110 REM 

120 GOSUB 2390 

130 SK=5 

140 GOSUB 940 

150 REM MRIN LOOP 

160 GOSUB 210 

170 GOSUB 450 

ISO POKE S-*-<4.. 0 

190 GOTO 160 

200 REM MOVE PLANE 

210 PX=PX+IN 

220 IE PX>0 OR IN>0 THEM 310 

230 IE PEEK<V+16>=0 THEM 270 » 

2-40 POKE V+16 , 0 

250 P X = 2 5 5 

260 GOTO 330 

270 POKE 2040>133 

2S0 PV=PV+4 

230 IN =1 

300 GOTO 330 

310 IE PXC255 OR PEEK < V-*- 16> = 1 OR I N< 1 TH 

EM 350 

320 POKE V+16,1 
330 PX*8 

340 GOTO 330 . 

350 IE PXC100 OR PEEK<V+16>=W UR IN<1 TH 

EM 330 

360 PV=PV+21 

370 IM=—1 

3S0 POKE 2040,132 

330 IE PX>45 AND PEEKCV+16>=1 HMD PV>228 

THEM 2240 
-400 POKE V,PX 
-4 10 POKE V+ 1 , PV 

<420 IE PEEKCV + 31) AMD 1 = 1 AMD PV>50 THEM 
1710 

-430 RETURN 

440 REM DROP BOMB 

-450 IE BD- 1 THEM 620 

460 IE PEEK<197><>60 THEM 310 

-4 7-0 IE PX<24 OR CPX>65 AMD PEEK < V+ 16> = 1 ’> 

THEM 310 

480 IE BL<1 THEM 310 

-430 BD-1 
500 BL=*BL— 1 

510 PRINT " *S" TABC29) STR$CBL) + " 

520 GOSUB 210 

530 BI-IN 

5-40 BX — I MT < < PX +256*PEEK < V-*- 16>) 78 > —2— 1*< I 
M< 1 > 

550 BV-INT(PV78—4> 

560 POKE S+6,240 49 

570 POKE S-f- 1 .. 28 
580 POKE S+4,83 
530 GOSUB 210 

600 POKE S-H-4.0 
610 GOTO 630 

620 POKE D+BV#40+BX,32 
630 GOSUB 210 GOSUB 210 

640 BX-BX+BI 

650 GOSUB 210 : GOSUB 210 

660 BV-BV+1 

670 GOSUB 210 : GOSUB 210 

660 IE BV>24 OR BX<0 OR BX>39 
GOTO 310 


THEM BD=0: 
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690 IF PEEK<D+BV#40+BX><34 OR PEEKCD+BV* 

40+BX> >37 THEM 880 

700 POKE S-*- 1 , 94 

710 ROKE S+5,6 

7*20 ROKE S-*-6, 17 

7*30 ROKE S-*-4 , 129 

740 BD*0 

7*50 SC-SC+ 1 0 

7*60 OOSUB 210 

7*70 PR I MT THE U3) SC; 

780 OOSUB 210 

790 ROKE D+BX+BV#40,42 

800 ROKE C+BX+BV*40,1 * 

810 ROKE 53281,2 

820 OOSUB 210 OOSUB 210 

830 ROKE 53281,0 

840 ROKE D+BX+BV*40,32 

850 BV-BV-1 # 

860 IE REEK < D+BV*40 + BX> <34 OR REEK C D+BV* 

40 + BX> >37 THEM 910 
870 OOTO 700 

880 IE BV>24 OR BXC0 OR BX>39 THEM BD=0 

GOTO 910 

890 ROKE D+BV#40+BX,38 

900 ROKE C+BV*40+BX,4 

910 OOSUB 210 

920 RETURN 

930 REM INITIALIZE 

940 RRIMT CHR$< 142 > 

950 ROKE 56334,REEK<56334> AND 254 
960 ROKE 1 , REEK < 1 > AMD 25 1 

970 E OR -J = 0 TO 511 

980 ROKE J+14336, PEEK < J +53248) 

990 NEXT J 

1000 ROKE 1 , PEEK < 1 > OR 4 

1010 ROKE 56334 .. REEK < 56334 > OR 1 

1020 ROKE 53272, CREEK <53272 > HMD 240 >-*-14 • 

1030 FOR 14608 TO 14647 

1 040 REAL B ROKE -J , B 

1050 NEXT T 

1060 REM CHARACTER DATA 

1070 DATA 255.. 153, 153,255, 153.. 153,255,25 
5 

1 080 DATA * 254 , 1 70,254 , 1 70 , 254 , 1 70 , 254 , 1 7 
0 

1090 DATA 0,24,60,126,255,153,153,255 

1 1 00 BRTR 0.1 24 , 254 , 1 78 , 254 , 1 78,254 , 1 70 

1110 BRTR 0,0,60 , 24 , 60 , 68 , 24,0 

1120 ROKE 2040,192 

1 130 BL =80 

1140 IM =—1 

1158 RX=65-PV=50 

1160 V=53248-S=54272 

1170 B=1024 0=55296 

1180 ROKE V+39,6 

1190 ROKE V+16,1 

1200 ROKE 53282,0 

12 10 FOR -_T= 12288 TO 12358 

1 220 RERB B ROKE -T .. B 

1230 NEXT J 

1240 REM SPRITE BRTR 

1 250 BRTR 0 .• 0,0,0 , 0,0 ,0,0,0 

1 260 BRTR 0,8,8, 0,0,0,0, 28 , 0 

1 278 BRTR 0 , 60 ,0,0, 60 , 12,0, 1 24 , 28 

1280 BRTR 31,255,252,63,255,252,127,255, 

252 

1 298 BRTR 8,1 24 ..0.0 , 60.0,8.68,0 
1380 BRTR 0,28,8,8,0,0,0,0,0 

1310 BRTR 0,0,0,00,0,0,0.0 

1320 FOR -_T= 12352 TO 12414 

1330 RERB B ROKE J , B 

1 340 NEXT T 

1 350 BRTR 0,0,0,0,0,8,0,0,0 

1360 BRTR 0,0,0,0,0,0,0,56,8 

1370 BRTR 0,60,0,48,60,0,56,62,8 
1388 BRTR 63,255,248,63,255■252,63,255,2 

54 

1390 BRTR 0,62,8,0,68,0,0,68.8 

1480 BRTR 8,56,0,0,0,0,0,0,0 
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14 10 riFfTFl 0 .. 0.. 0 .. 0 .. 0 . @ . 0 .. e» . 0 

1 420 POKE V+l 50 

1 -430 POKE V-*- 16,1 

1 -4*40 POKE V> 65 

1 -450 POKE 53230,0 

1460 POKE 53281.0 

1470 POKE 646,1 

1 480 FOR -J = S TO S+23 

1-430 POKE JT > 0 

1500 MEXT J 

1510 POKE S+24,15 

1520 PRINT " 73" 

1530 FOR K=963 TO 330 
1540 RB=INT< RND< 0 > *SK> 

1550 RT=IHT<RNDC0:^2>+1 
1 500 RC= I NT < RND < O > *0 > -+2 

1570 FOR T=1 TO RE 

1530 IE RT=1 THEM POKE D-»-K-J*40,34 

1530 IE RT = 2 THEM POKE H+K-J4<40, 35 

1000 POKE C+K.- J#40 , RC 4k 

1010 MEXT -J 

1020 IE RT=1 THEM POKE H+K.-RB*40-40,30 

1030 IE RT=2 THEM POKE D+K-RB^40-40,37 

10-4O POKE C + K-RB*40-40,RC 

1050 MEXT K 

1000 POKE V+21>1 

1070 RRIMT •'Of; 

1030 RRIMT TRE<0> "SCORE " SRC<3> "BOMB 

Q ; J;| 

1030 RETURN 

1700 REM EMU ROUTINE 

1710 POKE 8+0,240 

1 720 POKE S-+2-4 * 15 

1730 E OR J=100 TO 10 STER—1 

1740 POKE S +- 1 , _T 

1750 ROKE S+4,33 

1 7*00 MEXT T 

1770 ROKE S-+-4 • 0 

17*30 RRIMT 

17*30 E OR -T= 1 TO 13 #> 

1300 RRIMT "W" 

1310 MEXT T 

1320 RRIMT "VOUR SCORE : "SC 

1330 E OR Gfl=l TO 10 

13-40 GET G±T 
1350 MEXT Gfl 
1300 MMT="" 

1870 INPUT "VOUR MRME" i MM$ 

1330 IE LEM < MN$X15 THEM 1310 
1330 RRIMT "TOO LONG!" 

1300 GOTO 137*0 
1310 S3(10)-SC 

1320 MTC 10 > =MM4 

1330 EOR J«10 TO 2 STER—1 

1 3-40 IE SRCJKSRCJ-l) THEM 20 1 0 
1350 TP=SR< J —12 

1300 T^ = M^< J —1 > 

1970 S3 < J —1 >-S3< -J > 

1 330 M*= < T— l > = M*= CJ) 

1330 S3<J)=TR 

2000 M^c..J>=T^ 

20 10 MEXT -J 

2020 RRIMT " 73" 

2030 ROKE V-+2 1 .. 0 

20-40 RRIMT T3B < 1 0 > "HIGH SCORE T3BLE " 

2050 RRIMT " WEDfl" 

2000 EOR M=1 TO 3 

207*0 RRIMT T3B<5> M " " S3(M) " " i 

2030 RRIMT N*<M> 

2030 MEXT M 

2100 RRIMT RRIMT 

2110 RRIMT TRB<8) " MHWWFRESS R TO RLRV" 
2120 RRIMT T3BC14) "S TO STOP" 

2130 GET Q$ 

2 1-40 IE Q^= " " THEM 2 130 

2150 IE QJSO"R" THEM 2-470 

2 100 RRIMT "73" 

2 1 70 SC-0 : SK=5 : BD==0 
2180 BL=80 IM=—1 

2 130 PX=65 PV = 50 
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2200 POKE 2040,192 
2210 GOSUB 1420 
2220 GOT O 160 

2230 REM SUCCESSFUL LANDIMG 

2240 IE SK=10 THEM 2350 

2250 POKE S+24, 15 POKE S+6> 240 

2260 E OR T = 1 TO -4 

2270 READ M,B 

2230 POKE S-h 1 , N 

2290 POKE S+4,33 

2300 EOR HiE=l TO E^6 

2310 NEXT EE 

2320 NEXT -J 

2330 POKE S+4.. O 

2340 DATA 23,50,35,50,26,50,40.90 
2350 PRINT " IT" 

2360 SK=1O 

2370 GOTO 2130 

2330 REM TITLE SCREEN 

2390 PR I MT " 73* 1 

2-100 POKE 53281,2 

2*4 10 POKE 53280,2 

2-420 POKE 646, 7 

2 <1:0 PRINT " pIbOPIp W 1 TAB < 16> "BOMBER" 

2*4*40 PRINT " ^TE»Ii«Ti!«i^ip?Teri;Bg■ ■ TAB < 2 > " PRESS THE 

SPACE ERR TO RELEASE BOMBS" 

2-450 PR I MT "«MDESTROV ALL BUILDINGS TO L 

AND VOUR PLANE" 

2*460 RETURN 
2*4 7*0 POKE *49 152*0 
2430 SVS *49 1 52 
2*490 EME 




BREAKOUT 
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This game should be a pushover for those amongst you 
who have spent too many hours in arcades playing with 
the machines. 

Across the top of the screen are five rows of coloured 
bricks, and the objective is to demolish this mutli- 
coloured prison by bouncing a ball off the bricks. 

Clearthe wall and a new screenful will be generated. 


How to play 

Use keys O and P to control your bats, but remember that 
you will have to predict the trajectory of the ball as it 
returns to you. 


Programming hints 

The game can be made easier, or maybe you mightthink 
more difficult, by increasing the number of balls in play. 

To do this, increase the value of BL in line 1170 to the 
numberof ballsyou require. 


Graphics characters 

Line 

550 Home 
870 Home 
910 Clear 
970 Home 
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1210 

Clear 

1220 

Clear 

1640 

Clear 

1680 

3 cursor down 

1690 

6 cursor down 

1710 

3 cursor down 

1760 

Home 

1780 

Cursor down 

1980 

Clear 

2000 

3 cursor down 

2060 

4 cursor down 

2120 

Clear 

The program 

Lines 


130- 140 
160- 180 
210- 320 
340- 360 
380- 490 
510- 670 
690- 700 
710- 780 
800- 890 
900- 920 
930- 950 
970-1200 
1210-1510 
1520-1620 
1640-1740 
1760-2070 
2080-2170 


Initial subroutines 
Main subroutine calling loop 
Look at keyboard and move bat 
Blankold ball position and move ball 
Bounce on screen edge or top 
Missed ball 

Lookfor clear ball position 
Bounce ball 
Ball hits brick 
Generate new screen 
Next ball position 

Define characters and set initial values 

Set up screen 

Initial values 

Display title screen 

Calculate and print high score table 

Newgameorend 
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100 REM BREAKOUT 
110 REM 

120 REM INITIAL ROUTINES 

130 GOSUB 1640 

140 GOSUB 370 

158 REM MRIN LOOP 

160 GOSUB 210 

170 GOSUB 340 

1S0 GOSUB 210 

190 GOTO 160 

200 REM LOOK AT KEYBOARD 

210 P=PEEK<197> 

220 IP P=38 OR P=41 THEN 230 

230 POR BE =1 TO 23 NEXT BE 

240 GOTO 320 

250 IP P=38 THEN IN=—1 

260 IP P = 41 THEN IN=1 

270 EP=BP+IN 

280 IP BPC1944 THEN BP=BP+1 

290 IP EPI> 1 983 THEN BP = BP— 1 

300 POKE BP—IN,32 

310 POKE BP/35 

320 RETURN 

330 REM MOVE BALL 

340 POKE C+R*40+D/32 

350 R = R-*-V 

360 C = C-*-X 

370 REM SCREEN EDGE? 

380 IP R>0 THEN 440 

390 POKE S+l/55 

400 POKE S+4.S3 

410 V=—V 

420 R«*R-t-V 

430 REM SCREEN EDGE? 

440 IP 0 = 0 AND CC*39 THEN 510 

450 POKE S+l/55 

460 POKE S+4/83 

470 X = —X 

4S0 C=C+X 

430 GOTO 330 

500 REM MISSEB BALL 

510 IP R<24 THEN 630 

520 POKE S+l/20 

530 POKE S+4/33 

540 BL=BL—1 

550 PRINT " i 

560 PRINT THE < 12 > BL; 

570 POKE S 4,0 

580 POR DE=1 TO 2000 : NEXT BE 

530 IP BL~0 THEN 1760 

600 POKE C+R#40+B/32 

610 C=19 

620 R*INT(RNBC0^5) + 15 

630 XR=INT<RNBC0)*2) 

640 X=—1 

650 IP XR=0 THEN X=—X 

660 V=—1 

670 GOTO 330 

6S0 REM LOOK AT BALL POSITION 

630 LA=PEEK< C+R*40 + B> 

700 IP LA=32 THEN 330 

710 IP LR<>35 THEN 800 

720 V=—V:X=—X 

730 POKE S-+- 1 ^ 35 

740 POKE S+4/83 

750 IP PEEK<137>=38 OR PEEK < 197)—41 THEN 

X = — X 

760 C = C-*-X 

770 R»R+V 

780 GOTO 340 

730 REM BRICK HIT? 

800 IP LA<>33 THEN 330 

810 IP PEEK < C + X+40* C R+Y)+D)*32 THEN V = —V 

S20 V = — V 

S30 POKE S+l/70 

840 POKE S+4/33 

850 POKE CL+C+40#R,S 

860 SC=SC+10 

870 PRINT ■' Sa” ; 

SS0 PRINT TAB< 31 > SC 
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830 POKE S-*-4.,0 

300 IF SC/ 16800 I NT < SC/ 1 600 > THEM 330 
310 PRINT "n" 

320 GOSUB 1210 

330 POKE C-+-40#R + D > 34 

3-40 POKE S-*-4 .. 0 

350 RETURN 

960 REM INITIRLIZE 

970 PRINT ,, W 

380 POKE 55,0 

330 POKE 56,56 

1000 PRINT CHR$<142) 

1010 POKE 56334, PEEK < 56334 > AND 254 
1020 POKE 1 , PEEK < 1 > RND 25 1 

1030 FOR -J = 0 TO 511 

1040 POKE J+14336, PEEK C J+53248) 

1050 NEXT -J 

1080 POKE 1 , PEEK < 1 > OR 4 

1070 POKE 58334, PEEK <58334 > OR 1 

1080 ROKE 53272,<PEEK<53272> RND 240)+14 

1030 EOR -_T= 14800 TO 14823 

1100 RERD D ROKE J , D 

1110 NEXT T 

1120 REM CHRRRCTER DRTR 

1130 DRTR 0,126,126,126,126,126,126,0 

1 1 40 DRTR 0.0.. 24 .. 60 > 60 .. 24, 0 -• 0 

1150 DRTR 0,0,255,255,255,255,0,0 

1160 CL=55236 B=1024 

1 1 7-0 BL = 5 

1180 ROKE 53281,0 

1130 ROKE 53280,11 

1 200 ROKE 646 .. 1 

1210 PRINT ■' 73" 

1220 RRINT ’• n BRLLS : “ BL SRO < 8 > "SCO 

RE = •• SC 

1230 FOR J=55336 TO 55455 

1240 ROKE -J , 8 

1250 NEXT T 

1260 FOR -J =320 TO 353 

1270 ROKE J+CL,6 

1280 NEXT T 

1230 ROKE 938+B,35 

1300 FOR -J = 160 TO 133 

1310 ROKE J+CL,2 

1320 ROKE J+D,33 

1330 NEXT -T 

1340 FOR -J =200 TO 233 

1350 ROKE J+CL,7 

1360 ROKE J+D,33 

1370 NEXT T 

1380 FOR J =240 TO 279 

1330 ROKE J+CL,5 

1400 ROKE J+D,33 

1410 NEXT J 

1420 FOR J =230 TO 313 

1430 ROKE J+CL,4 

1440 ROKE -J + D , 33 

1450 NEXT -J 

1460 FOR J=55616 TO 56215 

1470 ROKE J * & 

1480 NEXT J 

1430 FOR J=56256 TO 56235 

1500 ROKE -.J .. S 

1510 NEXT J 

1520 V = — 1 X = — 1 

1530 R=15 

1540 BR=938+D 

1550 C=13 

1560 S=54272 

1570 FOR L=S TO S+23 

1580 ROKE l_ . 0 

1530 NEXT L_ 

1600 ROKE S+24,15 

1610 ROKE S+6,240 

1620 RETURN 

1630 REM TITLE SCREEN 

1640 RRINT •' rj" 

1650 ROKE 53281,7 

I860 ROKE 53280>7 
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1670 POKE »S4»S,2 

1680 PRINT ■' WMia" THE (14) "BRERKOUT" 

1690 print "xomnniM use; kevs o & p to w 

OVE VOUR BRT" 

1700 PRINT " L.EPT AND RIGHT. " 

1710 RR I NT "MMIM EACH BRICK REMOVED PRO 

M THE WALL" 

1720 PRINT ■' SCORES 10 POINTS. " 

1730 FOR DE=1 TO 1000 NEXT DE 
1740 RETURN 

1750 REM END OP GAME 
1760 PRINT ■' «■’ 

1 770 POR - _T = 1 TO 13 
1780 PRINT "M" 

1790 NEXT J 

1800 PRINT "VOUR SCORE: "SC 

1810 POR Gfl=1 TO 10 9 

1820 GET G*= 

1S30 NEXT GA 
1840 NM$="" 

1350 INPUT "VOUR NAME'SNM* 

I860 IP LENCNM$>>12 THEN PRINT "TOO LONO 
-":GOTO 1850 
1870 SA(10)-SC 
1880 N*=< 10 >=NM$ 

1890 POR T =10 TO 2 STEP—1 

1900 IP SRC-JXSHC J— 1 > THEN 1970 

13 10 TP=SR < -J— 1 > 

1 320 T±T = NT < -J — 1 y 
1 330 SR < JT— 1 > =SR < J 
13-40 N* < -J— 1 > =N#= < .J > 

1350 8R<J)=TP 
1 360 NdE C J > =TT 

1 370 NEXT JT 
1330 PRINT "73" 

1330 PRINT TRB<10) "HIGH SCORE TABLE" 
2000 PRINT "WJS3W" 

2010 POR M=1 TO 3 

2020 PRINT TRB<5) M " " SR CM) " M ; 

2030 PRINT N^<M> 

2040 NEXT M 
2050 PRINT:PRINT 

2060 PRINT TAB (8) " KWDSWF'RESS P TO PLAV" 

2070 PRINT TAB < 14> "S TO STOP" 

20S0 GET QT 

2030 IP Q^="" THEN 2030 

2 100 IP Q*<>" P" THEN 2 150 

2110 SC=0 

2 120 PRINT "73" 

2130 GOSUB 1170 
2140 GOTO 160 
2150 POKE 43152,0 
2160 SVS 43152 
2 17-0 END 
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METEOR RUN 


A friendly alien space cruiser has been pulverised by a 
meteor shower and it's crew have abandoned ship. 

Only you, and your brave crew, can save the unfortunate 
survivors of this calamity. 

The trouble is that the meteors are still coming in waves, 
and your own ship has no forecefield to protect it from 
the danger. Oh, by the way, your laser guns have 
overheated, and you have no way to destroy the 
meteors, you can only avoid them. 


How to play 

Use the O and P keys to move left and right. 

Every helpless alien you pick up gains you extra points. 


Graphic characters 

Line 

230 Shift Q 

580 Clear 

600 Cursor down 

730 Cursor down 

750 Cursor down, cursor down 

790 Clear 

820 Clear 
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The program 

Lines 

130-160 Main subroutine calling loop 
180-270 Scroll screen and print meteors and alien 
290-460 Look at keyboard and move ship testing for 
alien or meteors. 

490-510 Set screen and ink colours 
520-560 Set sound registers 
570-660 Initial values 
670-750 End of game 
760-810 Check for new game request 
820-860 End of program 


lOO REM METEOR RUM 

110 REM 

1^0 GOsUC 480 

1 :J0 UUSUB 230 

140 GOb.UB mu 

150 SC=*SC-*-5 

160 GOTO 130 

1 7*0 REM SCROLL 

ISO TV*R*40+C+1024 

1^0 ROKE TV, 32 POKE TV+L32 
200 W=INT < RND < 0 > ^40 > 

2 10 WH = WH-t-N 

220 IF WM>3b# T MEM 250 

230 RRIMT SPC<W) •••••; 

240 GUTu 200 
250 Ul»-*a»0 

260 IF RMD(0».9 THEM RRIMT SRC(INT<RND< 

O :• *40 > > CHR$ < 30 > CHR$ < 1 26 > CHR$ < 1 58 > > 

270 RETURM 

2SO REM MOVE SHIR 

298 IF PEEK(197>*38 RND OG THEM C=C—1 

300 IF PEEKU97)*4 1 HMD C<38 THEM C=C+1 

3 10 TV»R*40 + C+ 1 02*4 

320 IF REEK<TV>*31 OR PEEKCTV+1)»81 THEM 

670 

330 IF REEK<TV>*94 OR REEK<TV+1)-94 THEM 

350 

340 GOTO -400 
350 ROKE S-M /40 
360 ROKE 5d-*-4 33 

370 SC=SC+100 

3SO FOR DE—1 TO 20:NEXT 
390 ROKE S + 4> 0 

-400 IE I MT < SC7 1 OO > C>SC7 1 OO THEM 440 

*4 10 R=R-t- 1 

-420 IE R>22 THEM R=22 

-430 TV=R*40+C+1024 

-4-40 ROKE TV, 127 POKE TV +54272,2 
450 ROKE TV-*- 1 ^ 255 : POKE TV+54273,2 
460 RETURM 

REM IMITIRLIZE 
480 8=54272 

490 ROKE 53280,0 
500 ROKE 53281,0 
510 ROKE 646,7 
520 E OR J = S TO S4-23 
530 ROKE J,0 
5-40 NEXT T 
550 ROKE S-*-2<4 , 15 
5b0 ROKE E>-*6,2*40 





3 3 3 3 2 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

P- 3 >.Ti 3 h C| t If, 3 N 3 2 3 h Cl Cl t If <fl N 3 (R 3 h M fl 

if If If 3 'll 'll '3 y> 'f- 3 3 3 3 N N N N N f>. N N N N 2 2 3 3 
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R=3 : C=20 

pr i nt ••ra** 

PGP T*1 TO 12 
PRINT M W" 

NEXT T 

FUR a = 5S2*3S TO 56295 
POKE JT > 7” 

NEXT J 
SC = 0 
RETURN 
POKE S-*-^ , 83 

FOR J=160 TO 20 STEP—1 
POKE S-*- 1 > J 

FOR rit£»=l TO 1O IS EXT DE 
NEXT J 

POKE S+4,0:PRINT 
PRINT ’• Jlfr^OUR SCORE!: "SC 

IF HS<SC THEN HS«SC 
PRINT M j»HIbH SCORE): ** MS•• W 

FOR JT—1 TO 1 O OCT GR$ NEXT J 
INPUT •* PLRY RGhIN M ;Q$ 

IF LEFT4f<UC> 1 THEN 820 

PRINT •TT* 

GOSUB 570 
GOTO 130 

print ■■ ra 11 

PUKE ,1*1 

840 POKE 53280, 1 
SSO PUKE 54281 .. fc> 
bfc.0 END 
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ANAGRAM 


Your 64 will generate a series of anagrams for you to 
solve, acting on the data which you feed into your 
computer. 

How to play 

It is very simple of course. 

All you have to do is to identify the word and type in your, 
hopefully, correct answer. 

Type QUIT to give up on a particular anagram and STOP 
to end the entire program. 


Programming hints 

The words for selection are contained in the DATA 
statements to be found in lines 510 to 610. These can 
easily be changed to suit various levels of knowledge and 
experience. You could use this program to torm the base 
for a science quiz, if you wished. 

Make sure that only one word can be formed as the 
correct answer or you will have some heavy arguments 
among users. 

It is simple to change the DATA, just delete and add 
words as you wish. Do remember, however, that if you 
change to total number of words, you will need to change 
thevalueforWD$inthe DIM statementin line 130. 
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Graphics characters 

Line 

120 Clear 
340 Cursor down 
400 Cursor down 
420 Cursor down 
490 Cursor down 
630 2 cursor down 


The program 


Lines 

120 

Clear screen 

130 

Dimension storage arrays 

140-190 

Read data into array 

220-230 

Select random word 

250-290 

Jumble word 

300-330 

Print word 

350-370 

Input guess and test for correct answer 

400-410 

Wrong answer 

420-480 

Correct answer 

510-610 

Word data 

630-640 

End of program 


100 REM RNRGRRM 

llO REM 

120 PRINT "rj" 

130 ri i m wn=t < 100 :> • mt < 12 > 

1 40 J = 1 

150 REM RERD IN DflTfl 

1 60 REHD WDT < -T > 

170 IF WD$ < -J > = " END " THEM 200 
180 -T = ._T l 

190 GOTO 160 

200 -J = -T— 1 

210 REM SELECT WORD 

220 R= I NT < RND < 0 > 3* JT > 1 

230 R$=WD$<R> 

240 TR = TRH-1 

250 EOR 1=1 TO LEN<fl$> 

260 R= I NT < RND < 0 > ** 1 2 > -f- 1 
270 IE M#<R><>"" THEM 260 

280 MT < R > =M I DT < HT • I > 1 > 

290 NEXT I 

300 EOR 1=1 TO 12 

310 IE M$CI>*"" THEM 330 

320 RR I MT M=T < I > J 
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330 NEXT I 
340 PRINT •'W 

350 INRUT "VOUR GUESS" j G$ 

360 RRINT 

370 IR G T = A T THEN 420 
3S0 IR GT= " GIU IT" THEN 490 
390 IR G$="STOP" THEN 630 
-400 PRINT "TRV RGflINiW" 

•4-10 GOTO 350 

420 RRINT "CORRECT!W" 

-430 NC = NC+ 1 
440 RT = " '• 

-450 ROR 1 = 1 TO 12 
460 r*i^ < i > = •• •• 

470 NEXT I 

480 GOTO 220 

-490 PRINT RiT " M" 

500 GOTO -4-40 

510 DRTR POND,WOOD,MOUSE,TIGER,ANTELOPE, 
CASSETTE. SERENDIRI TV, COMPUTER 

520 DRTR PROGRAMME,APPLE,WORD.TRAIN,HOUS 
E . APEX . DEREL I CT . DIGIT, BUTTERRLV 

530 DATA IDEA, INDEPENDENT . ANAGRAM.. MINOTA 
UR , DUNGEON . MINI ATURE . ENV I RONMENT 
540 DATA MOTH , PART V . OCEAN .■ ORB IT, OXVGEN . P 
ASSPORT. PENNY, PENINSULA. RABBIT 

550 DATA PEAR - TOAD . POUND . GUESS , B I NARV . PU 
P I L . BAS IC, ANALOGUE . V I DEO . BUG . RECORD 
560 DATA MAZE. SOFTWARE . MODULAR . CONTROL. C 
ABLE,ISSUE,LEAR.HELICOPTER 

570 DATA TELEVISION,TELEPHONE,DICE,CHESS 
, PROGRESS . SHARK , BOOK . ROBOT . PLAV , RI LM 
5S0 DATA EVENT . GOOSE, FRESH, JUNIOR, CRICKE 
T . P I CTURE . HEAP . HAVOC . EXPERT 

590 DATA LANGUAGE,TRAVEL,VILLAGE,GENERflT 
ION, MUGIC, CALCULATOR, ATLAS- PAPER 
600 DATA CARD.CHIMNEY,TICKET.CODE.BIRD,R 
I SH . COLOUR .. LAKE . TVRE . CAKE . I TCH 

610 DATA ROAD.SAIL,SAFE.PRICE.MIST.BREAD 
.PIE.INSECT.BOOT 
620 DATA END 

630 PRINT "YOU GUESSED"NC"CORRECTLY OUT 
OR *’ TR— 1 PR I NT " TR I ES - jena" 

640 END 
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PHARAOH'S CURSE 


This is the kind of adventure game that even your older 
friends and family may like to play, as it involves logic, 
memory and the powers of deduction —you don't have 
to be a crackshot arcade games player. 

On this adventure you will be seeking for treasure, of 
course, but you will have to decide whether or not to 
collect stone urns, iron rods, boxes, earthenware pots 
and daggers on your way to the centre of the pyramid. 

You will have to decide whether or not to go East, West, 
North, South and whether or not to open doors, enter 
ante rooms and tackle mazes. Beware that floors may 
crumble, walls may collapse, mists may envelope you as 
the tombs are protected against robbers such as you. 


How to play 

The input is standard verb followed by noun eg. Go 
South, Examine Table, Take Key etc. Compass directions 
can be abbreviated to N, S, E, W. 

Typing in adventure games can take quite a time, so we 
recommend that you have a cassette storage available, 
so you can load onto tape and complete the list loading in 
two sittings if necessary. Be very careful when typing in 
data statements, as a single error might not be picked up 
by the program, but could prove to make a nonsense of 
your logical structure. 

The adventure features a "save game" facility so that 
there is no need to stay up all night playing. Just type the 
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word SAVE as your command; and LOAD to reload your 
unfinished game. 


Graphics characters 


Line 

14 

Clear 

20 

6 cursor down 

120 

Clear 

260 

Clear 

290 

Home, cursor down 

360 

Full line of Commodore key and 1 

2630 

Clear 

2720 

Clear 

2792 

Clear 

2810 

Clear 

2812 

6 cursor down 

2820 

12 cursor down 

2850 

Clear 

2854 

6 cursor down 

2856 

12 cursor down 


The Program 


Lines 

30- 114 

Dimension arrays and read in data 

120- 240 

Print instructions 

274- 360 

Print location descriptions 

370 

Special locations 

430- 590 

Input and analyse command then go to 

600- 660 

relevant part of the program 

Verb strike 

670- 690 

Read 

700- 770 

Move 

780- 812 

Drop 

820- 942 

Walk, go 
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950-1082 Take 
1090-1582 Examine 
1590-1852 Open 
1860-1922 Dig 
1930 Verb data 

1940-1942 Noun data 

1960-2540 Location descriptions and exit data 

2560-2622 Help 

2640-2710 Save game 

2720-2800 Load game 

2810-2860 End of game routines 

2870-2890 Delay subroutine 


1© REM PHARAOH"3 CURSE 
12 REM 

I- 4- PRINT ” r3" 

2© print •• MBpaagwa'' tab< i i > pharaoh^ s cijr 
SE •* 

3© DIM M<44,,OB<40>,OJ$<40),R*<44),DR$ 
< -4- > - OL < -4-© > 

*4-© GOTO 1930 

5© REM READ IN DATA 

•=:© READ Vi,N«:,2$,RN,NN,CP 

62 

T© FOR -_T= 1 TO RN 

30 FOR K=* 1 TO -4- 

32 RERD M < JT - K > 

3-4- NEXT K - -T 

*3© FOR 1 TO NN 

92 RERD OL < -T > 

3-4. NEXT J 

1©© FOR -J=l TO NN 

1©2 READ OJJ< J > 

1 ©*4. NEXT JT 

11© FOR T= 1 TO -4- 

112 RERD DR$<J> 

II- 4- NEXT J" 

12© PRINT •* IT* 

13© PRINT "THERE 13 R LONG FORGOTTEN VAL 

LEV IN" 

132 PRINT "EGVPT WHERE > RUMOUR MRS IT.. R 

VAST " 

134 PRINT ”SECRET TRERSURE IS MIDDEN." 

133 PRINT 

140 PRINT "MANV HAVE ATTEMPTED TO FIND T 

MIS" 

1-42 PRINT "FMRRAOM^S MORRD BUT NONE HAVE 

RETURNED-" 

1 <4-4 PRINT 

15© PRINT "IF VOU RRE WILLING- WE WILL R 

TTEMPT" 

152 PRINT "TO FIND TME TRERSURE TOGETMER 

154 PRINT 

180 PRINT "GIVE ME TWO WORD COMMRNDS RS" 

132 RRINT "INSTRUCTIONS- EG GO NORTH- EX 

RMINE DOOR-"i 

134 FRINT "TRKE INVENTORY."PRINT 

13© PRINT "THERE RRE MRNV MORE COMMRNDS 

VOU CRN " 

192 RRINT "USE- BUT I WILL LEAVE VOU TO 

DISCOVER" 

194 RRINT "THEM FOR YOURSELF." 

20© RRINT 

2©2 RRINT "IN CASES OF DESPERATION.. TYPE 

MELP RS YOUR COMMAND-" 




53 


220 PRIMX 

240 PRINT "PRESS RNV KEV TO START. - - " 

250 GET NUS 

252 IF- HIJi=" " THEM 250 

230 PR I NT H T' 

270 GOTO 430 

274 REM PRINT LOCATION 
2SQ FOR J-1024 TO 1343 

232 POKE J ,32 
284 NEXT J 

290 PRINT *• iftl_OCAT IOM : "R$<CP> 

30O FOR -J=* 1 TO MM 

302 IF OL<J)-CP THEM 310 

304 NEXT _T 

306 GOTQ 320 

3 10 RR I MT " V I 3 I ELE : ** i 

312 FOR _T =1 TO MM 

3 1-4- IF OL C J > OCR THEM 313 

3 16 PRINT O.T4P<JT> 

313 MEXT J 

320 PRINT "DIRECTIONS: "i 

322 FOR 1 TO -4- 

324 IF M < OR . -T > =-0 OR M<CP, J>*88 THEM 323 

323 RR I MT DRf< J > i : BF= 1 

323 MEXT T 

330 IF IOF=*0 THEM RR I MT 

340 ID F = 0 

350 RRIMT 

360 RR I MT " i ■ ———————i———— 

370 IF CP-13 OR CP-33 OR CP-36 OR CP-25 

OR CP-42 THEM 330 

372 GOTO 410 

330 GOSUB 2870 

330 GOSUB 2370 

*400 GOTO 23 10 

•4 10 RETURN 

430 FOR -J"—1 TO 5 : PRINT : NEXT : GOSUB 230 

-432 FOR -T= l TO 16 • PRINT : NEXT 

434 IPi="" 

•433 I NFMJT •• WHAT MOW “ ; I F T 
-433 PRINT 

440 IF IP$-"H£LP" THEM 2530 

450 IF THEM I Pi= ** GO NORTH" 

•430 IF IP$- ,, S" THEM IPS- ** GO SOUTH" 

470 IF IPS*"E" THEM IPS-"GO EAST" 

438 IF IPS-"W" THEM IPS-"GO WEST" 

4*30 IF TP£="SA , v , E" THEM 2330 

500 IF IPT="LORD" THEM 2720 

502 IF L_EM<IRT>C3 THEM RR I MT ** I DON'T UN 

DERSTAMD THAT. •• GOTO -430 
510 FOR X—l TO l_ E M < IPS > 

512 IF MID«< IRs*> Xj. 1 >=■" •’ THEM 520 

5 1-4 MEXT X 

5 13 IF X>LEN < I PS > —2 THEM I PS- '* " : GOtO 50 

520 VBS-LEFTT < IRT, 3 > 

530 MTT = M I r»T < I RT . X-*- 1 .. LEN < I P$ > —X > 

5-40 NO**M I < I P* , X + 1 > 3 > 

550 FOR VE-1 TO LENCV$> 

552 IF MIDT < VT.. VB. 3 > —VET THEM 553 

55-4 MEXT VB 

553 VB-0 

553 VB-< VB+2>/3 

530 IF VB< 1 THEM RR I MT '* I DON'T UNDERSTA 

MB THE VERB - " : GOTO -430 

570 FOR NO-1 TO LEN< M^ > 

572 IF MID*<N3=,NO,3>*NO* THEM 573 

574 MEXT MO 

576 NO-0 

573 N0-<N042>X3 

530 IF MO<1 THEM RRIMT ••I DON'T UNDERSTA 

MB THE NOUN. " : GOTO -430 

590 OM VB GOTO 320,700,1090,1590,1860,95 
0 > *350.790 > 790 > 670 - 700 - 300 
300 REM STRIKE 

310 IF NO-24 ANB QB<3)-1 ANB CP-20 THEM 

320 

612 GOTO 350 

320 RR I MT ••»=» SECRET DOORWflV HAS OPENED ! " 

330 M < 20 > 4 > —30 
3-40 GOTO 430 




650 PRINT "NOTHING HAPPENED." 

660 GOTO 438 

670 REM READ 

680 PRINT "TRY EXAMINE." 

690 GOTO 430 

700 REM MOVE 

710 IE NO=26 AND CP=4 THEM 720 

712 GOTO 750 

720 PR I MT ■' H SECRET PASSAGEWAY ! " 

730 M<4,4>=39 

7-10 GOTO 430 

750 REM MO SPECIAL SITUATION 
760 RRIMT "MOTHIMG HAPPENED." 

770 GOTO -430 

780 REM DROP 

790 IE OB < MO > O 1 THEM 810 

S00 OB(NO>=0 
802 OL < MO > =CP 

804 RRIMT "YOU x VE DROPPED IT." 

806 GOTO -430 

810 RRIMT " YOU DOMT HAVE " NT*? 

812 GOTO -430 
820 REM WALK 

830 IE MO=20 AND CR=30 AND OB<l>=l THEM 

840 

832 GOTO 860 

840 CP=11 

850 GOTO -430 

860 REM DIRECTIONS 

870 IE MO<28 OR NO>31 THEM 380 
872 GOTO 300 

380 RRIMT " YOU CANT GO THAT WAY." 

830 GOTO -430 

300 IE M < CR>MO—27>=0 THEM 380 
310 IE MCCP,MO-27>=88 THEM 320 
312 GOTO 3-40 

320 RRIMT "YOU CANT GO THAT WAY, VET! " 

330 GOTO -430 

3-40 CP-M<CR, NO — 27 > 

3-42 GOTO -430 
950 REM TAKE 

360 IE N0032 THEM 1020 
370 EOR _T = 1 TO MM 
330 IE OB > O 1 THEM 1000 
330 RRIMT O-J^ C J > 

1000 NEXT T 

1010 GOTO -430 

1020 IE MO>13 THEM RRIMT "YOU CAN'T TAKE 

THAT ! " : GOTO -430 
1030 EOR -J= 1 TO 13 

1032 IE OB(J>=l THEM CM*CM+1 

10-40 NEXT -J 

1050 IE CMC4 THEM 1060 

1052 RRIMT "YOU CRM T CARRY RMV MORE!" 

105-4 CN=0 

1056 GOTO -430 
1060 CN=0 

1070 IE OL < MO > OCR THEM 1080 
1072 OL < MO > =0 

1074 OBCMO)=l 

1076 RRIMT "IT'S YOURS." 

1 078 GOTO -430 

1080 RRIMT "THERE ^ S MO "MT$" HERE!" 

1032 GOTO -430 
1030 REM EXRMIME 

1100 IE MO=1 RMD C OB d 1 > = 1 OR OL<l>=CP> T 

HEM 1110 


1 1 02 
1110 

GOTO 1 
RR I MT 

1 30 

"IT"S COVERED 1M 

HIEROGLVPHIC 

SI " 
1112 

1 1 20 

1 1 30 

1 1 -40 

1 1 50 

RR I MT 
GOSUB 
RR I MT 
GOSUB 
RR I MT 

2870 

"WRIT...' 

2870 
"THERE"S 

*:RRIMT 

R SL I R 

OE RARER 

1 MS I 

DE - - - 
1 1 52 

1 1 60 

1 1 7*0 

RR I MT 
GOSUB 
RR I MT 

2870 
"IT SRVS 

HE MHO 

CARR I ES 

TH I S 


SHRLL GO" 

1172 RRIMT "UNTO HIS OWN REFLECTION." 

11 7*-4 RRIMT 

1176 PRINT "TRANSLATIOM BY ADVENTURE TER 
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NSLflTION3 INC.”; 

1173 PRINT •' COPYRIGHT 2043 B.C. " 

1 130 GOTO 4.3ia 

1190 I R MO=*3 HMD <OB<3>*l OR OL<3>*CP> T 

HEN 1300 

1 1 y 2 GOTO 1 

1300 PRINT "HMMM. - - " 

1303 PRINT 
1310 GOSUE 2370 

1330 PRINT "IT'S DIFFICULT TO READ..." 

1333 PRINT 

1330 GOSUE 2370 

1240 PRINT " I THINK IT SRV3 -* STRIKE Ft MR 

M WITH Ft ROD" 

1343 PRINT "OF I ROM TO *«*tSMUDGE*** REST IM 
G PLACE.-." 

1244 RRIMT 
1246 GOSUE 3370 

1243 RRIMT " THAT S FILL- I CRM MRKE OUT. " 

1250 GOTO 430 

1260 IE NO-26 AMD CP-4 THEM 1270 

1262 GOTO 1290 

1270 RRIMT "IT DOESN^T LOOK THRT HERW!" 

1330 GOTO -4-30 

1390 IF NO-7 AND <OB<7)-l OR OL<7>-CP> T 

HEM 1300 
1292 GOTO 1330 

1300 RRIMT "THERE " S R HOLE IM IT!" 

13 10 GOTO -430 

1330 IR NO-9 AND <OB<9>-l OR OL<9>-CP> T 

HEM 1330 

1333 GOTO 1360 

1330 RRIMT "THERE'S RM OLD RRRCHMENT IM 
THERE- " 

1 3-40 OL < 3 > -CP 
1350 GOTO -430 

1360 IR NO-16 RMD CP-5 THEM 1 37-0 

1362 GOTO 1390 

1370 RRIMT "THERE'S R KEYHOLE." 

1330 GOTO -430 

1330 IR NO-20 RMD CP-30 THEM 1400 
1333 GOTO 1-430 

1-400 RRIMT "THERE'S RM UGLY LOOK I MG CRER 

TURE IM THERE!" 

1-410 GOTO -430 

1-430 IR NO- 1 O RMD < OB < 10)-1 OR OL < 1 0 > -CP 

> THEM 1 -430 
1-433 GOTO 1500 

1-430 RRIMT "THERE'S R POISONOUS SPIDER I 

MS I DE. " 

1-433 RRIMT 
1 .*-40 GOSUE 2370 
1-450 RRIMT "OOPS!" 

1-453 RRIMT 

1460 GOSUE 2370 

1470 RRIMT "TOO LATE•" 

1430 GOSUE 2870 
1490 GOTO 2310 

150O IR MO—35 RMD CR-10 THEM 2350 

1510 IR NO-26 RMD CR—15 THEM 1530 

15 13 GOTO 15-40 

1530 RRIMT "YOU WON'T MOVE THIS OME!" 

1530 GOTO -430 

15-40 IR MO-11 RMD < OB < 1 1 > =- 1 OR OL < 1 1 > -CP 

> THEM 1550 
15-43 GOTO 1570 

1550 RRIMT "THERE'S RM EMBALMED COCKRORC 

H IM THERE." 

1560 GOTO -430 

157*0 REM MO SRECIRL SITUATION 

15SO RRIMT "NOTHING SRECIRL." 

1 532 GOTO -430 
1590 REM OREM 

1600 TR NO-17 RMD CP-5 THEM 1610 

1603 GOTO 1640 
1610 RRIMT "LOOK!" 

1630 OL<23>-5 

1 630 GOTO -430 

1640 IR NO-17 RMD CP-7 TU^ N 1650 

1642 GOTO 1*530 
1*550 RRIMT "LOOK! " 

1660 IR OL<1K>0 OR OB(l)-l THEM 430 
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1370 OL< 1 >=7 
1680 GOTO -+30 

1330 IF- NO=17 AND CP-9 THEM 1700 

1692 GOTO 1760 

1700 PRINT "LOOK!" 

1710 IF* OL<2><>0 OR OB <2> = 1 THEM 1730 

1 720 OL <2) *3 

173© IE OL<3><>0 OR OB<6>*l THEM 430 

1 740 OL < :• *3 

1750 GOTO 430 _ ^ _ 

1760 IE NO-6 HMD <OBC6)*l OR OL < »=. > *CP -• T 

HEM 1770 

1762 GOTO 1310 

1770 PRINT "WATCH OUT!” 

1772 PRINT = GOSUB 2370 

1774 PRINT ”THERE ^3 A POISONOUS SNAKE IN 

THERE!” 

1776 PRINT 

1730 GOSUB 2370 

1732 PRINT "QUICK! WHAT^S THE CURE EOR R 

SNAKESITE?" 

1734 PRINT 

1730 GOSUB 2370 

1732 PRINT ”TOO LATE- - - ” 

1734 GOSUB 2370 

1 300 GOTO 23 lO ___ 

1310 IE NO*IS AND CP-5 AND OB<2>-l THEN 
1 320 

1312 GOTO 1350 

1320 PRINT ”IT'S OPEN-” 

1330 M <5 - 3>-16 

1340 GOTO 430 

1350 PRINT "VOIJ CRN *" T DO THRT - ” 

1352 GOTO 430 

I860 REM DIG 

1370 IE CP023 THEN 131 O 

1330 PRINT " YOU VE UNCOVERED R SECRET EN 

TRANCE!” 

1332 PRINT 

1334 GOSUB 2370 

1336 PRINT "IT LOOKS SCRRV- - - I DON^T TH 
INK VOU SHOULD GO DOWN THERE!" 

1330 M<23,1>*24 

1300 GOTO 430 

1310 REM NO SPECIRL SITUATIONS 

1320 PRINT ”THERE ^ 3 NOTHINO THERE-” 

1322 GOTO 430 

1330 DRTR GO MOVEXAOPEDIGTRKGETDROLEARER 

PIJLSTR 

1340 DRTR CLOKEYPARNULRODBOXBUCDAGURNPOT 

BOTNUL 

1342 DRTR NULSANPYRDOOCASCHACRVMIRMULMUL 

MUMSTRSIGROCNULNORSOUEASWESIMV 
1350 DRTR 44,27,3 

I960 R*a>-"RT THE END OE THE VALLEY OF 

TOMBS- SHEER CLIEES RISE AROUND YOU.” 

1370 R*<2>-"IN THE VALLEY OE TOMBS.” 

1330 R^<3>*R^<2> 

1330 RS<4>-"IN R GLOOMY GREY STONE CAVE- 

WATER TRICKLES DOWN ONE WALL.” 

2O00 R^<5>-"IN R SMALL BURIAL CHAMBER- T 

HEELOOR IS HARD PACKED EARTH.” 

2010 DATA 2 , O , 0,0,3 , 1,9,0,6,2,5,4,O,0,3, 

33 > 0, O > 33 .. 3 

2020 R^<S>*R^<2> 

203O R:JP < 7 > * ” IN A LOW STONE BURIAL CHAMBE 

R. ” 

2O40 RJ<8>-R«<2> 

2O50 R+<3>*"IN A LARGE DARK BURIAL CHAMB 

ERWITH A FLOOR OE STONE SLABS-” 

2O30 R1<10>-"AT THE END OE YOUR JOURNEY. 


2070 DATA 3>3^7>0>0^O. 0>3.. O.. 3^0.0^0.. 0>0> 

2 .. 12 , 0 , 0,0 

2O30 R$<ll>-"ON THE OTHER SIDE OE THE 

MIRROR-” 

2030 RJ<12>-”IN THE ANNEXE TO THE BURIAL 

CHAMBER.” 

2 1O0 R«a3>-"EALLING INTO A DEEP SL I MV P 
IT DESIGNED TO TRAP TOMB ROBBERS..-” 

2110 R:* < 1 4 > ” AT THE JUNCTION OE TWO 

PASSAGES-" 
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2120 R*d5>»"IH R SMALL ANTE-ROOM. BE 

CAREFULL, THE FLOOR IS SLIPPERV." 

2 1 3@ DATA 37.31.30 .. 0 - 0 * 1 0 - 1 -4. . 0 .. 0 .. 0 .. 0 .. 0 .. 1 

3 . 3© . 1 5 . 12,0.0,0, 1 -4- 

2 14Q R^< 1 «£>*■*• TO THE WEST OF THE PVRRMID 

OR PTRH . •* 

3 130 RT < 17> = " TO THE WEST OR THE PYRAMID 

OR RMON." 

2160 RS<18>* ,, TO THE SOUTH OR THE PVRRMID 

OPRMON." 

2170 RJ=<13>- M TO THE WORTH OR THE PVRRMID 

OR RMON - *• 

3130 R$<20>="TO THE ERST OR THE PVRPMID 

OR RMOW . *• 

31SO DRTfl 21,23,0,5.19,13,070,0,0,30,17, 
33 * O . 30 . 17, 19, 13,8,33 

3300 Ri< 21 > = "TO THE WORTH OR THE PVRRMIH 

ORPTRH-” 

33 10 R*C22> a »"T0 THE ERST OR THE PVRRMID 

OR PTRH - '• 

3330 R*<23> a "TO THE SOUTH OR THE PVRRMID 

ORPTRH. •* 

3330 R$<24>*"IW RW OVRL ENTRV CHRMEER." 

33*4-0 Rf<25>a ,, FRLLIWG INTO R DEER RWD 

OCCUPIED SNRKE PIT..." 

2230 DRTR 0.0. 33 . 16,21,33 .0.0. 33,1 3 S3 , 1 

o , ^ I -- , . ~i _• 2 .* y .• @ , 0 • 0 

2260 Ri<26>* M IN R WOOD LIWED MORTURRV 
CHRMEER . ** 

2270 R$<27)="IW R COLD DRRK EURIRL CHRME 

ER. " 

3330 R«''28>-"IN SOME KIWD OR EWCHRWTED R 

OOMTHIWGS RRE NOT WHRT THEV SEEM- - - " 

3330 Ri<29>=”IW R SMRLL fiHTE-ROOM- R COL 

D SURE RUOOR EEMERTH VOIJP RRRT . •• 

3300 R*'::30>*"IN R LRRGE SQUARE ENTRV 

CHRMEER-" 

23 1 O DRTR 0-0,0.2*4- , O , 2*4- , 23,23,23.23.23.2 
7* . O , O , 27 ,O,0 , O , 20 • 33 
2320 R^ <31 ■> =*RT ■' 14> 

2330 R$C32> = "IW RW RWTE—ROOM_ THE WOODEW 

WRUUS CRUMBLE TO VQUR TOUCH-“ 

23*4-0 R3?<33> — M IW R UOW CEIL IMGED STORE RO 

OM . " 

2350 R*<34>a"IN THE CHRMEER OR RNIJE IS. T 

HE RIR IS COLD." 

2360 R:*: < 35 > =RS < 1 3 > 

2370 DRTR 11,3-4- , 0 . 32 . O . 33 .31.0.32,0.0,0 , 
31.33,35,O,O,O,O,O 
2330 R4c<36>«R#< 13> 

23*30 RJ<37>»" I W THE CHRMEER OR UPUhIJT . 

THERE IS R RRIWT MIST IW THE RIR - " 

2*400 RJ<38>-"RT R TURW IW THE RRSSRGEWRV 

2*4-10 R4<39> = " IW R MRZE LIKE COMPLEX OR 

CRVES - *• 

2*4-20 Ri<40>*R4<39> 

2*4-30 DRTR 0.0,0.0,0. 11. O . 33 . 1 *4- , O . 37 ,0,0. 
*4-0 , *4- . O , 33 . *4-1 . O . 0 
2*4-*4-0 R«<41 >*R$C39> 

2*4-50 R«<42>»"PRLLIWG DOWW R CLIRR I WTO T 

HE VRLLEV OR TOMBS...•• 

2460 Rj<43>»R4<39> 

2*4-7*0 P*<44>*R*<33) 

2*4-30 DRTR 40,0,42, 43.0,0, 0,0.44,0.41,0,0 

. *4-3.0.0 

2*4-30 DRTR O . O . O . O . 27* . O . 33 . 2*S . *4-*4- . 23.33 , O , 

O■23.O.5,5.O 

2*4-32 DRTR O , 30,7* . 3 . O . 20 . 10, 15, 4 

2500 DRTR R CLORK.R LRRGE IROW KEV,R RRD 

ED PRRCHMENT . WIJL 

2502 DRTR RW IROW ROD.R BOX.R UERTHER BU 

CKET 

25 10 DRTR R DRGGER, R STOWE IJRN.RN ERRTHE 

WWRRE ROT 

2512 DRTR R BOTTLE OR EMBRLMIWG RLUID,WU 

U.WUL.SRWD 

25 1*4- DRTR R PVRRMID. R LRRGE WOODEW DOOR. 

R STOWE CASKET 

2520 DRTR R BURIRU CHRMEER.R CAVE.R FULL 

UEWGTH MIRROR.R STOWE CASKET 
2522 DRTR R STOWE CASKET.R MUMMV,R STATU 
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E,A SIGN,fl LARGE ROCK , R LARGE ROCK 

2S38 DATA "NORTH •• , SOUTH ","EAST ", "WES 

X •• 

2548 OOXO SO 
2550 REM HELP 

2560 IE CP<>4 XHEN 2570 

2562 F'R I MX ” ADVENTURES CRM EE A VERV MOV 

IMG EXPERIENCE!" 

2564 00X0 430 

2570 IE CPOS AND CROX AND CP<>9 THEN 2 
580 

2572 PRT MX "OREM SESAME ! " 

2574 00X0 430 

2580 I E CP023 XHEN 2590 

2582 PRIMX "THE SAND LOOKS SOEX.” 

2584 00X0 430 

2590 IE CPO20 XHEN 2600 

2592 ERIMX "WHRX DIE XME PRRCHMENX SRV?" 

2594 00X0 430 

2608 IE CPO30 XHEM 26 10 _ 

2602 PRIMX “HAVE VOU GOX XME CLOAK VEX?" 

2604 00X0 430 

261 a IE CROIS RME CP021 AND CR<>22 MME 
CP019 RME CROIX RME CRO1S XHEM 2620 
2612 RRIMX "PERHAPS XME ENXRANCE IS ON R 

MOXMER SIDE?" 

2620 PRINX 4 ”DOM'X eorgex xo examime xmim 
GS. “ 

2622 GOTO -430 
2630 PR I MX •* 71” 

2640 OREM 1 > 1 j» 2 .. " DRTR ** 

2650 CMD 1 

2660 FOR >J= 1 TO MM 

2662 PRINT OB<J> 

2664 PRINT OL<J> 

2666 NEXT -J 

2670 PRINT M<20>4> 

2672 PRINT M < 4 ^ -4 > 

SET 5 --4 PRINT 
2e*7 , 6 PRINT M<23, O 
2680 PRINT CP 
2690 PRINT#1 
27CLOSE 1 
2713 GOTO 430 
2720 PRINT 

2730 OPEN 1 > 1 - 0> " DATA " 

27* -4-13 FOR 2T= 1 TO NN 
2742 INPUT#l,OB<J> 

2:7*-4-4 I NPUTtt 1 .. OL CJ) 

2:7* -4i5 NEXT J 

2750 I NPUT# 1. M < 20 . -4 > 

2760 I NPUT# l>M<-4>-4> 

2770 IHPUT#1,MC5,3) 

27*30 I NPUT# 1 , M<23, 1 > 

2732 INPUT#1,CP 
279Q CLOSE 1 
2792 PRINT •• 73” 

2300 GOTO -430 

2310 PRINT ” 3 1" _ _ 

23 12 PRINT •• eUttnUelRlW TflB<7> M V O U " R E 

D E F* ID # ! •• 

2330 INPUT "TRV RGflIN M ;Q« 

23-40 IP LEFTsKQ^, 1>=- ,, V THEN RUN 
23-42 GOTO 2900 
2350 PRINT M C3 M 

235-4 PRINT " •OPIBWWW" TRBC6> "«THE TREflSU 

RE 13 VOURS!»" 

2S56 print •• 

£860 GOTO 2300 

2870 POR J=- 1 TO 2500 

2330 NEXT J 

2330 RETURN 

2300 END 


REflDV 


BINARY TO DECIMAL 
CONVERTER 
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This program will convert a sequence of binary digits (0's 
and I's) into a decimal number. 

Programmers will be quick to appreciate its use in 
defining graphics characters. Each of the characters of 
your Commodore 64 consists of eight rows of eight 
binary digits. It is thus easy to type each character 
straight into this program to obtain the poke codes for 
each new definition. 


Graphics characters 

Line 

130 Clear 

140 Cursor down, cursor down 
150 Cursor down 
160 Cursor down 
320 Clear 


The program 

Lines 

130-160 Print instructions for program 

180 Input string of binary digits 

190 S to stop program 

200-270 Convert binary to decimal 

290-310 Print decimal and go back to start of loop 

320-330 End of program 
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1 00 
1 10 
1 -20 
1 30 
1 *4-0 
R 3 
1 50 

1 fc»0 
1 T*0 
1 80 

1 30 
200 

2 10 
220 
230 
2-40 
250 
230 
270 
200 
230 
300 
3 10 
320 
330 


BINflRV TO DEC1NHL CONVERTER 


REM 
REM 

REM INSTRUCTIONS 
PRINT "73" 

PRINT "WINPUT vour binhrv 
tring or i s and 0 sw 

RRIMT "EG 100110W" 

PRINT "INPUT S TO STOPJU" 
REM MAIN LOOP 

INPUT "BIHARV",B$- if bs*** 
IF "S" THEM 320 

M= 1 
DC = 0 

FOR J=1 TO LENCB#) 

R3t==M I IJ^ < BT > LEM < > -J1 1 > 

IF R^*= ,, 0** THEM 230 
DC-DC+M 
M = M*2 

NEXT -J _ 

REM PRINT DECIMAL 

RRIMT "DECIMAL = '* DC 

PR I MT 

GOTO ISO 

print ,, ra M 

END 


NUMBER RS 


THEM 1Q0 



PILOT 
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Pilot is a flight simulation game for one player. You have 
a choice of two landing strips to take off from and land at, 
with a separate graphics display of the landing strip and 
a smaller scale terrain map. The two landing strips will be 
seen at the West and East of theterrain map. The landing 
strip display will automatically come into view as you 
near the landing strip, as long as you are below 2,000 ft. 
Likewise the terrain map will be displayed as you leave 
the landing strip area. Your position will be shown on 
both displays by a flashing aeroplane. Your direction is 
taken from the HDG reading. On the bottom half of the 
screenin an instrument display which is your main aid to 
flying. 

The instruments 

HDG Your heading (the direction in which you are 
travelling) in degrees. North is 0°, East is 90°, 
South is 180° and West is 270°. 

RDR The rudder position, negative to the left, 
positive to the right. 

GAS The amount of fuel remaining. 

SPD Yourforward airspeed. 

PWR Engine power setting. 

ALT Youraltitude. 

ROC or ROD 

Rate of climb or rate of descent. A red light will 
also show if you are descending. 
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FLP The position of the wing flaps. 0 is fully closed, 
30 is fully open. 

GEAR UP or GEAR DOWN 

The position of the landing gear. 

The square to the right of the instrument display is an 
artificial horizon. When the red line is low down, your 
nose is pointing upwards and when the line is high your 
nose is pointing towards the ground. Bank is similarly 
shown, when the red line is from bottom left to top right, 
you are bankedtothe right. 


How to play 

E S D X The aeroplanes joystick is represented by these 
four keys. To pitch the nose down, press key E, to pitch up 
press X. Likewise use S and D to bank the aeroplane; this 
causes a sideways airflow which turns the plane in the 
same direction as the bank. In all cases hold the key down 
until the computer responds. 

0 P The engine power is reduced by key 0 and 
increased by P. 

W R The rudder is controlled by keys R for right and W 
for left. The rudder controls operate the landing gear for 
turning on the runway and also assist with turning when 
intheair. 

A F Keys A and F operate the wing flaps. F to open, A to 
close. When the flaps are fully closed (0), the stalling 
speed, at which you lose control, is about 80 knots; when 
fully open (30), the plane will not stall until around 60 
knots. Do not extend the flaps at higher speeds, since this 
will cause drag and could result in damage to the wings. 
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G The landing gear is operated by pressing key G. 
Leave the gear in the up position except when taking-off 
and landing. At high speeds, having the landing gear 
down will cause drag and may result in damage to the 
aeroplane. 

Remember in all cases to hold the key down until the 
computer responds. 


Terrain key 

Green areas are below 100 ft. 

Red areas are below 1,000 ft. 

Black areas are below 4,000 ft. 

Watch your altitude when travelling over these areas, 
otherwise you will crash. 


Options 

There are three options at the start of the game, Take-off, 
Landing or In-flight. Select In-flight on your first 
attempts. Once you can handle the plane in the air the 
landing option can be used to practice the final approach, 
this is the most difficult part of flying and you will no 
doubt crash many times before you are successful! 

There is an option to provide forthe effects of wind in the 
game. Start with calm air; trying to navigate and land in 
gale-force winds requires real skill. 
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Landing 

Both landing strips are best approached from the East on 
a heading of 270°. Your height must be below 2,000 ft. As 
you approach the runway area, the landing strip will 
automatically come onto the top part of the screen, 
replacing the terrain map. Reduce your airspeed for the 
final approach and reduce power quickly after touch¬ 
down to stop before the end of the landing strip. The 
flaps can be fully open for the final part of the landing to 
reduce the stalling speed. 

The aerodynamics of flight are extremely complicated 
and changing one control will affect other factors, for 
example banking will affect lift on the wings causing the 
planeto drop. 

Avoid extremes of speed, both high and low, otherwise 
you may lose control. Likewise the joystick controls (E S 
D X) should not be used in extreme settings until, that is, 
you are confident enough to attempt loops and rolls. 

Above all don't expect flying to be easy. Much practice is 
required, particularly for the final approach and landing. 
If you can take off and travel to the second landing strip 
and back again you may consider yourself successful. 
You will be refuelled each timeyou land. 


Control Summary 

E Nose down 

X Nose up 

S Bank (and turn) left 

D Bank (andturn) right 
O Reduce power 
P Increase power 
R Rudder right 
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W Rudder left 
F Open flaps 
A Closeflaps 
G Landing gear 


Graphics characters 

Line 

120 Clear 

160 Cursor down, 2 cursor down 

170 Cursor down 

180 Cursor down 

190 4 cursor down 

250 Clear 

520 Home 

530 Cursor down 

540 Cursor right 


The program 

Lines 


160-240 

Print and select options 

260-270 

Initial routines 

280-310 

Main loop 

330-560 

Routines for instrument displays 

580-620 

Update fuel remaining 

630-690 

Update speed 

700-810 

Update altitude and check for landing 
or crash 

820-940 

Update climb or descent values 

960-1100 

Loss of control 

1140-1190 

Taxi too fast so crash 

1220-1250 

Look at keyboard 

1260-1500 

Move joystick 

1510-1540 

Increase or decrease power setting 

1550-1570 

Flap setting 
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1580-1600 

1610-1640 

1670-1720 

1740-1750 

1760-1770 

1780-2180 

2200-2280 

2300-2430 

2440-2490 

2500-2530 

2550-2750 

2770-3000 

3060-3170 

3180-3220 

3250-3280 

3300-3500 

3520-3680 

3700-3750 


Rudder setting 
Landing gear up/down 
Calculate and display heading 
Wind effects 
Position 

Move plane and print new display if 

necessary 

Blank screen 

Print instrument panel 

Print landing strip 

Cleardisplay area 

Printterrain map 

Define graphics characters and set 

initial values 

Crash 

Gearupon landing 

Banked on landing 

Successful landing 

Set initial values for different options 

End of program 


1 00 
110 
1 20 
1 30 
1 40 
1 50 
1 60 
1 7*0 
1 80 

1 90 
200 

2 10 
220 
230 
240 
250 
260 
270 
200 
290 
295 
300 
3 10 
320 
330 
3-40 
350 
360 
370 
3S0 
330 
-400 
-4 10 
-420 
■430 


POKE 646,11 


REM PILOT 
REM 

print ■■ra" 

POKE 5320 1 1 

TB=49153 
REM PRINT MEM U 

PRINT "M" TRB < 1 2 > " P I LOTWW" 

RRIMT *■ 1. TRKE OFFW 

RRIMT *■ 2- LflNDINGW" 

RR I NT " 3- IM FLIGHT iEteXftDSJ'* 

INPUT "WHICH ORTION’SQ 
IF GiC 1 OR Gl>3 THEM 200 
RRIMT-RRIMT 

INPUT "WIND EFFECTS". 

IF LEFT$<R$,1>="V" THEM WN= 
RRIMT " 71" 

ROKE 53280,0 

OM Gl GOSUB 3480, 3520, 3560 

GOSIJB 1220 

GOSUB 5S0 

GOSUB 1220 

GOSUB 1670 

GOTO 2S0 

REM RRIMT RT ROUTINES 
R$=RIGHT$<P$,LEMCP$)—1 > 

IF LEMCR$)>1THEM370 
Rt= *■ "+P$ 

GOTO 520 

IF LEMCP$)>2 THEM -400 
P$= " •' -f-R^ 

GOTO 520 

IF LEMCR$>>3 THEM 430 
RT= " 


GOTO 520 

IF LEM<R$)>4 THEM 520 


1 
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440 R«:*= " " -*-p:T 

450 GOTO 520 

•460 Pi = RIGHT$<P$, LEN(P$>-1 ) 

470 IP LEN<P$)>1 THEM 500 

480 P^= “ ■' -4-p^ 

490 GOTO 52© 

500 IP LENCP$>>2 THEM 520 

510 P^r=* •* ’• -f-P^ 

520 PRINT •■Sa" 

530 POR -J= 1 TO R— 1 PRINT " W J NEXT T 

5-40 POR T= 1 TO C: PRINT " HI" > NEXT T 

550 PRINT P* > 

560 RETURN 

570 REM UPDATE INSTRUMENT PANEL 

580 FU*FU-PW*0.008 

530 IP FU>0 THEN610 

600 FU=0:PW«0 

610 P#*STR$< INT <FU) > 

620 R® 15 : C — 4 - GOSUB460 

630 TR = PW* 1-1 4-B2#44 - 978-VE* < C FL>0 ) 4* < VE> 
100 > > #PLX150 

640 VE*< TA — 0. 1#VE^< <OR = 0>*(VE>100> )+VE72 

4* C VE< 10) +VE*4 > 25 

650 IP VE<20 THEM 620 

660 VE®VE+RND(0)*4-2 

620 IP VE<0 THEM VE«=0 

600 Pf-STR$(INT<VE)) 

630 R«18 : 0 = 4 GOSUB 460 

200 AL-AL+RO/10 
210 IPALC0 THEM AL-0 
220 P*-STR$< IMT < AL> > 

230 R— 1 6 : C®= 1 2 : OOSUB 330 

240 IP < AL< 1 )*CTS<>41 > * < TS042> THEM 306 

0 

250 IP <RL<1)#<GR»1) THEM 3100 

260 IP <RLC1>*<ABS<B3—B1>>3> THEM 3100 

220 IP C AL<1 )*CRQ<-320) THEM 3060 

200 IP < AL< 1 > 4* < VE< 1 > 4* < < TS«4 1 > -4- < TS-42 > > 4* < 

RO<!0 > 4* < RO>-320 > THEM 3 1 80 

230 IP <AL<100)*<PS*39)HKWMs2) THEM 3060 

000 IP CflL<1000)#-:PS-40)*CWM-2) THEM 306 

0 

©10 IP < ALC4000)* < PS*38)* < WM*2) THEM 306 

0 

020 TA® < (B2*62. 4 — ABSCB3 — B1 > *<22 - 20>*31 - 33 

> 

030 RO» < TA- C 2204IVEX 1 50 > 4* C RL>5 > #SGN < RO > —V 
E*B2W2.64* < B2<— 1 )+RO#2)/3 
040 OOSUB @60 
050 OOTO 360 

060 IP AL>5 THEM RO-RO+RNDC0)#8-4 

020 IP RO>«=0 THEM 320 

000 P#-STR$<ABS<IMT<RO>>> 

030 POKE 1263,4 

300 POKE 1264>40:POKE 56036,2 
310 OOTO 340 

320 POKE 1263 > 3 POKE 1264,32 

330 P*-STRt<INTCRO)) 

340 R—13 = C“12 : OOSUB 330 
350 RETURN 

360 IP CVE>C80 — PL#0. 66) ) + <AL<5) THEN 1110 
320 RO —RO —ABS < R04*RNB C0) X2 > —RND < 0 > 4*3204* < 0 
0 —VE > 

300 OOSUB 060 
330 POR T—1 TO 5 

1 000 POKE S+ 1 > 20 - POKE S-*-4 > 03 

1010 POR DE=1 TO 100 NEXT 

1020 POKE S-*-4>0 
1030 POR DE=1 TO 50:NEXT 

1040 NEXT J 

1050 IP RND< 0 > >0- 5 THEM 1020 

1060 K — 1 4 GOTO 1230 

1020 IP RNDC0)>0- 5 THEM 1030 

1000 K“13 : GOTO 1230 

1030 IPRND<0)>0.5 THEM K>=88 : GOTO 1230 

1100 K=1©:GOTO 1230 

1110 IP<AL<20000)+CRO<0) THEM 1130 

1120 R0 — R04* 1 5000/AL 

1130 IP VE>360 THEM RO = RO —2- 1 404*VE : GOTO 

330 
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1 140 IFCVEC140>-K RL>0> THEM 1200 
1150 GOSUB 3010 

1 1 60 PT = *' TRX I " : R = 1 5 - 0 = 3 : GOSUB 520 

1170 P$="TOO":R=17 : C=9 : GOSUB 520 

1 180 P^="FRST" : R=19 : 0 = 3 : GOSUB 520 

1130 GOTO 30iS0 
1200 RETURN 

1210 REM LOOK FIT KEYBOARD 

1220 K = PEEK( 197> : IF K—64 THEM 1*550 
1 230 POKE S-+- 1 .. 55 • POKE S-*-4 . 33 

1240 FOR DE = 1 TO 100 NEXT 

1250 POKE 3-*-4 , 0 

1260 IP KOI 4 HMD KC>23 RND KOI 3 RMD K< 

>13 THEM 1510 

1270 IP C RL<5 > * C VE< < 80-FL*0.66) > THEM 15 
1 0 

1280 IP K:023 HMD RL<4 THEM 1510 

1230 IP B 1 >6 OR BK-5 THEM 13 10 

1 300 POKE < 1 7-*-B 1 > *40-*- 1 043 .. 32 : POKE < 1 7-+-B 1 > * 
40-*- 1 043 > 32 

1310 IP B2>6 OR B2C—5 THEM 1330 

1 320 POKE < 1 7 + B2 > *=40-*- 1 050 .. 32 : POKE < 1 7 + B2 > *e 
40-4- 1 05 1 .. 32 

1330 IP B3>6 OR B3C—5 THEM 1350 

1 340 POKE < 1 7+B3 > *40+ 1 052,32 - POKE < 1 7 + B3 > * 
40-*- 1 053,32 

1350 IP K=14 THEM B1=B1-1 B2=B2-1:B3=B3- 

1 

1 360 I P K=23 THEM B 1 = B 1 -+ 1 B2 = B2+ 1 : B3=B3 + 

1 

1370 IP K = 1 3 THEM B1=B1- 1 B3*=B3+1 

1330 TP K=18 THEM B1=B1+1 B3=B3—1 

1330 IP B2>3 THEM B1=B1—14 B2=B2-14 B3=B 

3— 1 4 

1400 IP RBSCB3 — B1 >>13 THEM TR*B1 : B1==B3 : B 

3“TH 

1410 IP RBS <B3 — E1 > >7 THEM B1=B1 — 1 = B2 = B2- 
1 *• B3*B3— 1 

1420 I P Bl>6 OR BK-5 THEM 1450 

1430 POKE < 1 7+B 1 )*40+1048, 40 : POKE C 17 + B1 > 

40+55320>2 

1440 POKE< 17 + B1 > *40+1043.. 40 - POKE < 17 + B1 > m 
40+55321 > 2 

1450 IP B2>6 OR B2<—5 THEM 1480 

1460 POKE < 17 + B2)*40+1050 .. 40 : POKE< 17 + B2)* 
40+55322> 2 

147*0 POKE < 17+B2)*40+1051 .. 40 POKE < 17+B2)* 
40+55323.. 2 

1430 IP B3>6 OR B3<—5 THEM 1510 

1 430 ROKE < 1 7 + B3 > *40+ 1 052 -• 40 : POKE < 1 7+B3 > *4* 
40+55324> 2 

1500 POKE < 1 7+B3 > :-*40+ 1 053 .. 40 : POKE < 17 + B3)* 
40+55325.2 

1510 IP K=38 HMD PM>3 THEM PW-PW-10 

1520 IP PU<=0 THEM 1540 

1530 IP K=41 HMD PW<211 THEM PW-PW+10 

1540 P$=STR$<PW) R=21 : 0 = 4 GOSUB 460 
1550 IP K=10 HMD PL>4 THEM PL-FL-5 

1560 IP K = 21 HMD FL<26 THEM FL-PL+5 

1570 P$*STR#<PL) : R*22 : C*17 : GOSUB 460 
1500 IP K*17 HMD RD<2 THEM RD-RD+1 

1530 IP K=3 HMD RD>—2 THEM RD-RD-1 
1600 P^= ■* " +8TR$ < RD > + " " : R = 1 2 : C— 1 7 : GOSUB 

520 

16 10 I P K02€ OR HL<4 THEM 1650 

1620 IP GR= 1 THEM OR —0 : P^ s ="DOWN" : GOTO 16 

40 

1630 IP GR-0 THEM GR=1 P$*"UP 

1640 R*23 : G =10 : GOSUB 520 

1650 RETURN 

1660 REM MEM POSITION 

1670 MD=HD—CB3—B1)*3-RD*2*CVE>2) 

1600 M2—M2—1 

1630 IP HLC1 RMD VE>1 THEM HD-HD+RD*15 

1700 IP HD>=360 THEM HD—HD—360 

1710 IP HD<0 THEM HD=360+HD 

1720 P$=STR$< HD > : R=12 = 0 — 3 : GOSUB 460 

1730 IP MM = 0 THEM 1760 

1740 IR«COS(MD/57.296 > *MS/200 

1750 IC»SIM < MD/57. 296)*MS/200 
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1 760 PR=sPR— < VE/200 > =^COS < HD/57 - 296 ) + IR 

1 770 PC=PC+ < VE/200 > 4<S I M < HD/57 - 296 )-IC 

1780 IF UIM = 1 THEN 1 890 

1 790 IF PC<40 OR RO3 10 OR PRC 1 3 OR PR> 1 

0O THEN F*R = 0 I PC = OC 

1 800 POKE < I NT <01/1 0+ . 5 > > 4*4©-#- I NT < OC/ 1 0-4- . 5 

> -•- 1 02-4 .. PS 

1810 IF M2=15 THEM 2=5 

1320 IF M2=2 HND WM=1 THEM 2—1 

1330 POKE TE.. 2 

1 3-40 PS = F'EEK < < I MT < PR/ 1 0-1- - 5 > / ^40+ I MT C PC/ 1 
0-4- . 5 > -4- 1 024 > 

1 350 POKE < I MT < PR/ 1 0-*- . 5 > > *40+ I MT < PC/ 1 0-4- _ 5 

> -*- 1 02-4 , I MT < < HD +45+360* < HD>3 15)) /90 > +34 

1 360 TE= < I MT < PR/ 1 0-*- - 5 > > *40+ I MT < PC/ 1 0-*- . 5 > 
+55296 

1870 2=PEEKCTB):POKE TB>4 
1330 OI=PR OC=PC GOTO 2000 

1 390 POKE < I MT < TR+ - 5 > > *40+ I MT < TO-*- - 5 > -*- 1 024 

. TS 

1900 IE N2*15 THEM 2=5 

1910 IE M2=2 RND WN=1 THEM 2=1 

1920 POKE TB,Z 

1 930 TC = TC + < VE/ 1 20 > 4*S I M < HD/57 . 3 > -4- I C* < RL< 

1 > *VE/80+IC*< RL>0> 

1 9-40 TR = TR— < VE/ 1 20 > *COS< HD/57 . 3 > — I R* < RL< 
1)*VE/80—IR*<RL>0) 

1950 IETR>10ORTRC2ORTO30ORTCC4THEN2140 
1 960 TS = PEEK < < I MT < TR-+ . 5 > > *40+ I MT < TC+ . 5 > -#- 
1 024 > 

1 320 POKE < I MT < TR+ . 5 > > 4*40-4- I MT < TO-*- . 5 > -4- 1 024 
. I MT < < HD +45+360* < Htl>3 15)) /90 > -4-34 

1 930 TB= < I MT < TR+ - 5 > > 4*40-*- I MT < TO-*- - 5 > -#-55296 

1390 2=PEEK<TB) : POKE TB,4 

2000 IE L*J r*1 = 2 AND RLC2000 RND PCC295 RND 

PC>267 RND PRC55 RND PR>41 THEM 2020 

2010 GOTO 2020 

2020 IE NM=1 THEM 2160 

2030 IE M 21> 0 THEM 2 160 

2040 GOSUB 2500 : GOSUB 2440:WM=1 : M2=3 

2050 TR = PR — 35 - TR=TR/2 TC = PC-264 

2060 TS=PEEK < < I MT < TR+ - 5 > > *40+ I MT < TC+ - 5 > -+- 

1024) GOTO 2160 

2020 IE WM==2 RND HLC2000 HMD PCC85 HMD R 

053 HMD PRC25 HMD PR>61 THEM 2090 

2030 GOTO 2160 

2090 IE NM=1 OR M2>0 THEM 216© 

2100 GOSUB 2500:GOSUB 2440WM=1=M2«3 

2110 TR = PR-55 TR = TR/2 - TC = PC-55 

2 1 20 TS = PEEK < < I MT C TR-4- . 5 > > 4*40-4- I MT < TC+ . 5 > -4- 

1024 > = GOTO 2160 

2130 IE M2>0 THEM 2160 

2 140 IE UIM = 2 THEM 2 160 

2 150 GOSUB 2500 - GOSUB 2550 WM=2 : M2*16 : PS 

= 39 

2 160 IE N2O0 OR WM02 THEM 2 130 

2170 POKE 7*40+1031,42:ROKE 5*40+1052,42 

2130 RETURN 

2190 REM BLANK SCREEN 

2200 EOR T=0 TO 24 

22 10 EOR K = 0 TO 39 : POKE .T*40 + K+1024,38 : F* 

OKE J*40+K+55296,0 

2220 NEXT K. J 

223© EOR T =12 TO 23 

2240 EOR K=0 TO 7* ■ POKE J*40+23+1024+K , 32 

2250 NEXT K . _T 

2260 EOR J=14 TO 20 EOR K = © TO 7=* 

2270 POKE J4*40+1 032+ K .. 32 
2230 NEXT K .. J 

2290 REM PRINT INSTRUMENTS 

230© P$="HDG M R=12:0=5 GOSUB 52© 

23 1© F T= *■ CHS •* : R=14 - 0 = 4 : GOSUB 520 

2320 P$="SPD H: R«17:C=4 : GOSUB 52© 

2330 P$= ,, PWR" R = 20 : 0 = 4 - GOSUB 52© 

2340 P$="GERR DOWN" R = 23 - 0 = 5 - GOSUB 52© 

2350 P$="RDR":R=12 : C=13 : GOSUB 52© 

236© P^="RLT " : R=15 : C=17 ; GOSUB 520 
2370 FT = *• ROC " : R= 1 3 - C= 1 7* GOSUB 520 

2330 P$="ELP" R = 21 : C=17 - GOSUB 520 

2390 IE WM=0 THEM 243© 
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2400 P$ = " W I ND " : R= 1 5 : C==9 : GUbUB 520 

2410 P$=STR$<WS>+" KM":R=17 : Cf8:GOSUE 52 

0 

2420 P#=STR»<ND>+" DEG" : R-19 : 0 = 3 : GOSUE 5 

20 

2430 RETURN 


2440 

EOR 

K = 0 TO 

1 0 

POKE 

113 1 -*-K 

> 

33 = 

POKE 

5 

5463+ K> 5 

MEXT 








2450 

EOR 

K = 0 TO 

1 0 

POKE 

1 23 1 -*~K 

> 

41 

POKE 

5 

5503 

+ K > T 

MEXT 








2430 

EOR 

K = 0 TO 

1 0 

POKE 

1 27 1 -*-K 

> 

42 

: POKE 

5 

5548 + K, ; 

MEXT 








2470 

EOR 

K = 0 TO 

1 0 

: POKE 

13 11 -*-K 

> 

41 : 

: POKE 

5 

5583+K> T 

MEXT 








2430 

EOR 

K = 0 TO 

1 © 

: POKE 

1 35 1 -*-K 

> 

33 

: POKE 

5 

5S23+K> 5 

MEXT 








2430 

RETURN 








2500 

EOR 

-_T = 2 TO 

1 0 

: EOR K 

= 2 TO 

2© 




25 10 POKEJ#40+1028+ K ^ 32 : POKE J*40+55298+ 
K > 1 

2520 NEXT K > J 

2530 RETURN 

2540 REM PRINT MRP 
2550 RESTORE 

2560 EOR -_T = 2 TO 10 : FOR K = 4 TO 3 1 
2570 RERD OH .. RP 

253© EOR L_ = 0 TO RP : POKE J*40 + K+L+1024, CH 

2590 IFCH=38THENTR=0 

2300 IFCH=39THENTR=5 

2310 IFCH=40THEMTfl=2 

2320 IFCH=42THENTR=7 

2330 POKE J*40+K+L +55296 .- Tfl 

2340 NEXTL 

2350 K=K+RP—1:NEXTK,T 

2330 DRTfl 38.-2 40 .. 5 .. 33 > 2 .- 40 > 2 > 33 > 3 > 40 > 1 > 

33 , 3 > 40 > 2 > 33 © 

2670 DRTR 3© > 1 > 40 > 2 > 33, 10, 40, 1.383 > 40 > 2 

> 33,5,40 .. 1 

2330 DRTR 40 .. 2 > 33 >10.. 40 > 7” .. 33 > 2 > 40 > 2 > 33 > 2 

> 40 > 2 > 3© 1 > 33 >13 


2330 

DRTR 

40 


1 


33 


1 


33 

j, 

3 > 42 


1 

ji 

33 

> 

1 

> 

40 

> 

2 

2700 

DRTR 

33 

> 

© 

.. 

40 

> 

•j 

.. 

33 

j. 

3 > 33 

> 

1 

ji 

40 

ji 

1 

> 

33 

> 


40 > 1 > 

33 > 3 > 

42 

j, 

1 



















27 1 0 

DRTR 

33 


2 


40 

> 

3 

.. 

3© 

, 

5 > 40 

> 

3 

> 

33 

* 

6 





2720 

DRTR 

33 


5 

j , 

40 

ji 

4 

.. 

33 


2 -■ 40 

ji 

5 

> 

33 

* 

3 


40 

> 

2 

33 > 7* > 

33,4, 

40 

j. 

4 

j 

33 


7* 















27*30 

DRTR 

40 


1 

j, 

33 


1 

> 

40 

> 

3 > 33 

ji 

e 

ji 

33 

* 

2 

> 

40 

ji 

6 

33 , fe. 

40 4 .- 

33 

j. 

4 


40 


6 

ji 

40 

.. 

2 











2740 

DRTR 

33 

> 

2 

> 

40 

j • 

1 


33 

.* 

5 > 40 


2 

> 

33 

* 

e 

> 

40 


4 


33 > 4 

2750 RETURN 

2730 REM INITIRLI2E 

2770 POKE 55,0 POKE 56,53 : PRIMT CHR»C142 

> 

2780 POKE 53334 > PEEKC 53334 > AND 254 

2790 POKE 1 PEEK Cl) AND 251 

2300 EOR J—& TO 511 POKE J+14333,PEEKCJ+ 

53243>‘MEXT 

23 10 POKE 1 . PEEK Cl) OR 4 

2320 POKE 53334 > PEEK< 53334 > OR 1 

2330 POKE53272> < PEEK C 53272 > AND240 > + 14 

2340 EOR T=1 TO 143 : RERD GA = NEXT 

2350 EOR J =1430© TO 14333 - RERD B = POKE J > 

B:MEXT 

2330 DATA 24 .. 24 > 255 > 255 .- 24 .■ 24 > 30 > 24 > 12 , 1 

2 .- 7^3 .. 255 > 255 .- 7^3 > 12 , 12 

2870 DRTR 24,30,24,24,255,255,24,24,48,4 
3,50 .. 255,255 .■ 50 48 .- 4© 

2330 EOR J=14340 TO 14371 POKE J,255NEX 

T 

2330 EOR -J = 1 4372 TO 14335 - READ B : POKE J > 
B:MEXT 

23©0 DRTR 255,255,255,17,255,255,255,255 
, 255 > 255 > 255 255 

2310 DRTR 255,255,255,255,24,24,24,255,2 
5 5 _> 4,24- , 24- 

2320 EU=500-OI=PR-OC=PC 

2330 IE UM=1 THEM WS=INT(RMD < 0 > #30)+4 : WD 
= IMT <RMD< 0 > #330> 

2340 8=54272 
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K—8 TO 15 


1 29 


TO 50 - NEXT 


520 


2950 FOR -_T —S TO S+23 

2960 POKE J .. 0 

2970 NEXT T 

29O0 POKE S-*-2-4.. 15 

2990 POKE S + 6..240 

3000 RETURN 

30 10 FOR - J = 1 -4 TO 20 FOR 

3020 POKE J#40 + K+1024> 32 
3030 NEXT K > - J 

3040 RETURN 

3050 REM CRASH 

3060 POKE S+1..65 POKE S-*--4. 

3070 E OR DE = 1 TO 50 NEXT 

3030 FOR -J=l TO 20 

3090 POKE 5323 1 .. 2 : FOR DE= 1 

3100 POKE 53231^1 

3110 NEXT ..T 

3120 POKE S+4,0 
3130 GOSUB 3010 

3 1 -=40 F'^= •• VOU " R = 1 3 : C— 1 0 : GOSUB 520 

3150 P$="CRflSHED'“:R=18:C=3:GOSUB 
3130 EOR DE=1 TO 10000 NEXT 

3170 GOTO 3700 
3130 IE GR-0 THEM 3230 

3190 GOSUB 3010 

3200 FT=”GEAR•• R= 1 E- 0=9 GOSUB 520 

32 1 0 F <T = ’■ l_IR '■ - R= 1 3 C = 1 & GOSUB 520 

322O G O T O 3030 

3230 IE RBS<B3—B1><4 THEM 3300 
3240 GOSUB 3010 

3250 P$="TOO" : R=15 : 0=9 : GOSUB 520 
3230 Pt= ,, MUCH M R = 1 T’ - 0 = 9 GOSUB 520 

3270 P4= ,, BRNK" R=19 : 0 = 9 GOSUB 520 

3230 GOTO 3030 
3290 REM LRHIiTNG 

3300 EOKE S+1.40 POKE S-*-^4 .. 33 

33 10 E OR DE=1 TO 200 NEXT 

3320 POKE S+1,35 

3330 E OR BE=1 TO 300 NEXT 

3340 POKE S-*- *4 • 0 
3350 GOSUB 3010 

3330 P$="VOU HAVE"-R=13:C=3 GOSUB 520 
3370 Pf="LANDED" : R=18 : C=9 : GOSUB 520 
3330 FU=500 RO=0 EOR DE=1 TO 13000:NEXT 

3390 GOSUB 3010 

3-400 P$="VOU ARE " : R= 1 5 : C = S : GOSUB 520 

3-4 10 Pi*= " CLEAR’* R= 1 6 : C = 9 : GOSUB 520 

3-420 F’T = " EOR " R=17 C=10 GOSUB 520 

3-430 P$="TRKE-" R= 1 Q : C = 9 GOSUB 520 
3-4-40 P$= ,, OFF" R= 1 9 C=10 GOSUB 520 

3450 EOR DE = 1 TO 5000 : NEXT 

3-430 GOSUB 30 10 

3470 GOTO 1200 

3-430 HB = 90 - PR = 70 : PC=7 1 : TS=42 : GR*0 : WM—1 : T 

3490 GOSUB 2770 - GOSUB 2200 = GOSUB 2500 : GO 

SUB 2-4-40 
3500 RETURN 

3510 REM INITIRL VRLUES 

3520 HB =270 PR = 70 - PC=79 : TS=32 GR=0 
3530 WM*1 TR=3'TC=30:AL=400-VE=110:PW=10 
0 

35-40 GOSUB 2770 : GOSUB 2200 : GOSUB 2500 = GO 

SUB 2-4-40 

3550 GOTO 15-40 

3530 HD*INT<RNIK0)*360) 

3570 PR=RNB<0>^30+20 

35S0 PC*RND< 0 > *280+50 
3590 WM*2 

3300 AL=INT <RND< 0 >*3000> +4000 

33 1 0 VE= I NT < RND < 0 > *50 > 1 00 

3320 PW=130 

3330 GOSUB 2770 

33-40 GOSUB 2200 

3350 GOSUB 1320 

3330 GOSUB 2550 

337*0 PS*PEEK < < I NT < F*R^ 1 0-+- - 5 > > *40+ I NT < PC/ 1 
0-*- - 5 > 1 02-4 > 

33S0 GOTO 15-40 

3390 REM END 
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37*00 

POKE 49152, 

0 

37 1 @ 

FOR J=1 TO 

1 0 

3720 

UET UM T 


37-30 

NEXT -_T 


3740 

SVS 49152 


3750 

EMU 




INVADER 
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Here they come, in an unending stream from deep space, 
the alien invaders that you always knew were out there — 
waiting. 

There are two types of nasties for you to blast away in 
your role as defender of the Empire. 


Howto play 

Move your O and P keys and fire with the SPACE bar. 

The small green invaders are worth ten points, and the 
much nastier red variety are worth twenty points. 

There is a snag, however, as your score mounts the 
invaders will fire back with increased rapidity and one 
mistake will lead to the destruction of one of your three 
bases. 

Be careful to move and aim with care as your laser gun 
will sometimes take a couple of seconds to recharge due 
to overheating. 


Graphics characters 

Line 

120 Clear 
480 Clear 
620 Home 
970 Home 
1060 Home 
1390 Home 
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1790 Home 

2070 Home, 10 cursor down 

2090 Cursor down 

2250 Clear 

2270 3 cursor down 

2330 4 cursor down 

2390 Clear 

2410 Clear 

2420 4 cursor down, 3 cursor down 
2430 2 cursor down 
2440 2 cursor down 


The program 

Lines 


120-150 

160-180 

200-420 

440-470 

480-670 

680 

690-700 

740-790 

800-1100 

1110-1150 

1160-1390 

1470-1540 

1550-1790 

1820-1940 

1950-2010 

2020-2100 

2120-2340 

2350-2400 

2410-2460 

2470-2490 

2500-2520 


Clear screen and set colours 
Set sound registers 
Define graphics characters 
Initial values 
Print initial screen 
Look at keyboard 
Laser Recharge 
Move base 

Fire laserand check for hit 

Newalien 

Fire alien laser 

Newalien 

Fire alien laser 

Print alien 

Main subroutine calling loop 
Game over 

Calculate and display high score table 

Check for new game 

Title screen 

Delay subroutine 

End of program 
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10© REM INVADER 

110 REM 

120 PRINT •• TT’ 

130 POKE 646,1 
1 40 POKE 532Q1 . 0 
1 50 POKE 53230 . 0 
100 8=54272 

170 ROR T = S TO S + 23 PUKE T . 0 NEXT 

100 POKE S+6,240:POKE S+24,15 

1 90 GOSUB 2-4 1 0 

200 POKE 55 . 0 : POKE 56,56 

210 RRIMT CHR$< 142 > 

220 POKE 5633-4 .• PEEK < 56334 > AND 25-4 

230 POKE 1.REEK(1> RND 251 

2- 40 ROR -J = 0 TO 511 

250 POKE J+14336, PEEK < J +53240) 

200 NEXT J 

270 POKE 1,REEK<1) OR -4 

200 POKE 56334, REEK < 56334 > OR 1 

290 POKE 53272, 6 REEK < 53272 > FIND 240> + 14 

300 ROR J=14600 TO 14671 

310 READ B 

320 POKE J .B 

330 NEXT -J 

3- 40 BflTfl 36, 1 . 123, 1 . 123, 1 . 128, 42 

350 DATA 195,255,219,255,195,189,24,102 

360 DATA 2-4 . 2-4.255 - 255.255 . 255 . 255 - 255 

370 DATA 0.3.8.8.8.3.8.0 

380 DATA 3.8.8.3.8.8.8.8 

390 DATA 255.255.255.255.255.255.255.255 
-400 DATA 36. 1 . 128. 1 . 128. 1 . 128. -42 

410 DATA 60.126.189.183.255.60.66.123 

420 DATA 60.126.189.189.255.60.24.24 

430 DIM S(12>.N$(12> 

440 CL = 8 00 = 8 

450 BS=3 

460 AC=38•RR =10 

470 02=3:R2=10 

480 PRINT "71" 

490 ROR J =1984 TO 2023 

500 POKE -J . 38 - POKE 54272+ J . 5 

510 NEXT -J 

520 ROR J=1944 TO 1947 

530 POKE -J . 38 - POKE 54272+J.5 

540 NEXT -J 

550 ROR J =1930 TO 1383 

560 POKE -J . 38 POKE 54272+ J . 5 

570 NEXT -J 

580 POKE 1304.33 : POKE 56176.5 

590 POKE 1905.33 POKE 56177.5 
600 POKE 1942.38 POKE 56214,5 
610 POKE 1343.38 : POKE 56215.5 

620 PRINT ••sa** TAB < 6 > "BASES: 3•• TAB < 22 > 
••SCORE : 0 " 

630 ROR J =56220 TO 5625 1 
640 POKE J .4 

650 NEXT -J 

660 POKE 1944+CL.35 
670 GOTO 1950 

680 K=PEEK<197) 

680 LS*LS+1 

700 IR LS>8 THEN LS=8 
710 I R K064 THEN 740 

720 ROR DE=1 TO 25 NEXT 
730 GOTO 1100 

740 IR K=41 RND CLC35 THEN CL-CL+1 

750 IR K=38 RND CL>4 THEN CL-CL-1 

760 IR OC=CL THEN 300 

7” 7*0 POKE 1 944+ OC . 32 

780 POKE 1344+CL.35 

790 OC=CL 

800 I R KO60 THEN 1 1 00 

810 IR LS<8 THEN 1100 
820 LS=LS—8 

830 POKE S+1.60:POKE S+4.129 

840 ROR J=1904 TO 1104 STEP —40 
850 POKE J+CL.37 
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830 POKE J+CL +54272,7 

370 NEXT -J 

330 FOR J = 1 904 TO 1104- STEP — 4-0 

©30 POKE J+CL,32 

©0© NEXT T 

©10 POKE S+4,0 

©20 IF CLORC THEM 1010 
©30 POKE RR*40+RC+1024,3© 

940 POKE RR*40+HC+55296,2 

©50 POKE S-t-1 .. *=10 : POKE 3-4-4.. 33 
960 30 = 30-1- 1 0 

©7=*0 PRINT "SST 1 TAB < 28 > SO 
988 POKE RR*40+RC+1024,32 

©©0 POKE S 4 O 

1000 RC=39 

1010 IE OLOC2 THEM 1100 
1020 POKE R2*4O+C2+1024,33 

1030 POKE R2*40+O2+55296,2 

1 040 POKE 3-4- 1 .. 30 : POKE 8-4-4 .. 0 
1050 30=30+20 

1030 EEIMT 1 1 ’ TflB<28> SO 

1070 POKE R2#40+C2+1024,32 
1030 POKE S-4-4.0 

1090 02=3 

11 00 RETURN 

1110 IE 02>3 THEM 1130 

1120 POKE R2*40+O2+1024j. 32 

1130 RR=0 

1 1 -40 02=3 1-+-I MT 7 RND < 0 > 3*2 > 

1150 RETURM 

1130 IE RND C 0 ? >0. 2 + SO/15© THEM 1400 
1170 IE C2C4 OR 02>33 THEM 1400 
1130 POKE 3-4-1,60 POKE 3-4-4.. 12© 

1 1©0 EOR - T =CR2+1 >*40+02+1024 TO CR2+1>#4 

0+02+1024+ t 21-R2 > *40 STEP 40 

1 200 POKE -T .. 33 

1210 POKE -J +54272.. 7 

1220 NEXT T 

1230 EOR J = < R2+1 )*40+02+1024 TO CR2+1)#4 

0+02+1024+ <21-R2 > #40 STEP 40 
1240 POKE T32 

1250 MEXT T 

1 230 POKE 3-4-4 .. 0 

1270 IE C200L THEM 1400 

1230 POKE 3+ 1 .• 3© : POKE 3 + 4,83 

1290 POKE 53281,2 

1300 GOSUB 2470 
131© POKE 3-4-4 .. 0 

1320 POKE 5323 1 .. © 

1330 BS=BS—1 

1340 IE 193 = 0 THEM 2020 

1350 POKE 1944+OL,32 

1330 OL=S 

137© 00=3 

1380 POKE 1 944+OL .- 35 

1390 PRINT TRB C 12 > BS 

1400 02=02—2 

14 10 POKE 3-4- 1 .. 40 - POKE 3-4-4 .. 33 

142© POKE R2#40+C2+1023,32 

143© POKE R2*40+O2+1024,34 

1440 POKE R2*40+C2+552©6,2 

1450 POKE 3+4,0 

143© RETURM 

1470 IE RO<>3© THEM 1530 

143© IE RND ■::©>>- 3 THEM 155© 

149© POKE RR*40+RC+1024,32 

1500 RR=1 

15 10 R2= I MT 7 RND < & > * 1 3 > -4-2 
1 520 02=3 1-4-1 MT 7 RND 7 0 > =*2 > 

1530 l_S= 1 

1540 RETURM 

155© POKE RR*40-»-RO-4-1 ©24 .. 32 

1 530 RR= I MT 7 RND C0>*10> -4-2 
1570 L 3=1 RC=1 

1530 IE RND(0 > >0. 01+30/250 THEM 1300 
1590 IE ROC 4 OR R033 THEM 1 300 
1300 POKE 3+1.30 POKE 3-4-4^ 12© 

131© EOR J = < RR+1 > *40 + RO+1024 TO 1944 3TE 
P 40 
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1 620 POKE T „ 37 POKE J-»-54272> 7 
1630 NEXT J 
1640 POKE S-*-4 ^ 0 

1650 FOR J = < RR+1 ) 3t«40+flC+ 1024 TO 1944 STE 
R -=4© 

1 660 POKE JT . 32 
1670 NEXT -J 

1680 IF RCOCL THEM 13©© 

1690 POKE 3-*- 1 .. 50 POKE S + 4, 129 
1700 POKE 53281,2 
1710 GOSUB 247*0 
1 720 POKE S 4, © 

1730 POKE 53231>© 

1740 BS=BS—1 

1750 IF B3=0 THEM 2020 

1760 POKE 1944+CL,32 

1770 CL=8 00=3 
1780 POKE 1944+CL,35 

1790 PRINT " ■&" TflBC 1 2 > BS 

130© RC=RC+1 

131© IF LF/2=INTCLF/2) THEM 133© 

132© POKE 3+l,45:POKE S-«-4 ^ S3 

133© POKE RR*40+RC+1023,32 
13-4© POKE RR*40 + RC+1024,4 1 
1850 POKE RR*40+RC+55293,5 

1 860 POKE S-*-4 © 

1870 GOTO 1330 

1330 POKE S-+- 1 a 35 : POKE S-*-4 ^ S3 

133© ROKE RR*40+RC+1023,32 
130© ROKE RR4*40+RC-M024, -40 
131© ROKE RR#40+RC+55296,5 
1320 ROKE S-«-4>0 

133© L_F =LF -+- 1 

13-40 RETURN 
135© GOSUB 680 

I860 I F RRO 1 THEM 1330 

1370 GOSUB 111© 

1330 GOTO 2000 

183© GOSUB 1470 

2000 GOSUB 68© 

201© GOTO 1350 

202© ROKE S+4,83 

2030 FOR J =200 TO 10 STER—1 

20- 4© ROKE S-*- 1 - -J 

205© NEXT J 

2060 ROKE S 4.0 

2970 RRIMT ** MJSllStelfllfflttlJSIlSMJ " TFIB < 1 0 > " G R M 

E OVER" 

2080 FOR -T= 1 TO 10: GET GR4 MEXT 

203© FOR T=1 TO 3 RRIMT "M": MEXT 

2 10© RRIMT "VOUR SCORE: SC 

2110 MM^="" 

212© INPUT "VOUR NAME" i MM# 

2 130 IF LEM < MM$)>14 THEM RRIMT "TOO LONG 

":GOTO 212© 

21- 4© SR ( 10) =SC 

2150 M$<10)»MM$ 

216© FOR J=10 TO 2 STER —1 

2170 IF SR < -J > <Sfl < %J— 1 > THEM 22-40 

213© TR=SR<J—1> 

2 1 3© T^==M^ < J— 1 > 

220© SR<J—1>—SRdJ> 

22 1 © M^ < -J — 1 > — M±T < J > 

222© SRCJ>=TP 

223© M$<J >=T^ 

2240 MEXT J 

2250 RRIMT "73" 

2260 RRIMT TRBC10) "HIGH SCORE TRBLE" 

2270 RRIMT " MWW1" 

2280 FOR M=1 TO 3 

223© RRIMT TRBC5) M " " SR CM) " " ; 

2300 RRIMT M^CM) 

231© MEXT M 

232© RRIMT-RRIMT 

233© RRIMT TRBC8) ":««ttWFRESS R TO RLflV" 

234© RRIMT TRBC14) "S TO STOP" 

235© GET Q$ 

2360 IF "" THEM 2350 

2370 IF GT="S" THEM 2500 
2380 SC=0 
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2390 

2-4 1 0 

2420 

2430 

THE 

2440 

2430 

2460 

2470 

2430 

2430 

2300 

23 1 0 

2520 


print ••n** 

GOTO 440 
PRINT ••n" 

EE I NT •• • ■ TRB < 1 4 > •• I NVRDERWHW" 

EE I Ml " JSWMO VE VOUR LASER BASE WITH 

O AMD E KEYS. " 

ERINT "WUFIRE WITH THE SERGE—BAR- M 

FOR DE=1 TO 1000:NEXT 

RETURN 

FOR r»E= 1 TO 250 

NEXT DE 

RETURN 

EOKE 49152,0 
SYS 43152 
END 



MACHINE CODE AID 
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This versatile program features a number of useful 
routines for the machine code programmer, including an 
assembler and a disassembler. 

Inputs are entirely in decimal, so there is no tortuous 
hexadecimal to worry about. The routine between line 
600 and 700 will convert hex to decimal. This could be 
used if you have 16 figures (or perhaps previous machine 
code experience) to adapt the program to hex input. 

The program is menu driven with thefollowing choices: 


1. Assemble 

This uses a three, four or five character mnemonic to 
identify the code and to distinguish between the different 
addressing modes for the 6510 microprocessor. The first 
three characters of the mnemonic are standard. A 
description of these can be found in the Commodore 64 
reference guide or many machine code handbooks. The 
method of addressing is determined by a suffix of one or 
two letters. 

e.g. LDA absolute is LDA 

LDA immediate is LDAIM 
LDA absolute, X is LDAX 
LDA absolute, Y is LDAY 
LDA indirect, X is LDAIX 
LDA indirect, Y is LDAIY 
LDA zero page is LDAZ 
LDA zero page, X is LDAZX 
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Other mnemonics are similar, e.g. STAIX, SBCIM, CMPY, 
ANDIM, LDXY. 

Each mnemonic representing a code with an operand 
will then be followed by a single decimal number to give 
the full code, e.g. LDAIM 6, STA 49646, JSR 49152 

The program allows the use of 26 different labels using A 
through to Z. These are used in a similar manner to the 
line numbers in Basic for reference by jump and branch 
statements. An assembler command will only need a 
label if it is to be referred to by a jump or branch. 

The list of commands should be finished with END. This 
will tell the program to assemble then return to the 
menu. 

The following example, which moves the screen display 
one character to the left, should illustrate the use of the 
assembler: 


49152 LBhIH 0 
49154 STRZ 251 
49156 LDRIN 4 
49158 STRZ 252 
49160 R LBYIM 1 
49162 B LBRIV 251 

49164 BEY 

49165 STflIY 251 

49167 INY 

49168 INY 

49169 CRYIN 40 
49171 BNE B 

49173 BEY 

49174 LBRIM 32 
49176 STRIY 251 


49178 LBRZ 251 

49180 CLC 

49181 ABCIN 40 
49183 STRZ 251 
49185 LBRZ 252 
49187 RBCin 0 
49189 STRZ 252 
49191 cnpin 7 

49193 BNE R 
49195 LBRZ 251 
49197 CNPIN 192 
49199 BNE fi 

49201 RTS 

49202 ENB 



81 


2. Disassemble 

This can be used to list your own machine code 
programs after entry or to decipher existing routines in 
ROM. Input the start and end locations when prompted. 
Make sure that the start location is a valid code and not an 
operand, remember garbage in = garbage out. 

All branch and jump instructions will have relative and 
absolute addresses indicated by a decimal number. For 
branch instructions any number up to 127 will be a 
number of bytes forward, whilst a number between 128 
and 256 will indicate a backward jump calculated from 
256 — operand. 


3. Runm/c 

Type in the start address of your machine code program 
and press return. Values left in the accumulator, X and Y 
registers will be shown on return (RTS) to Basic. 


4. Block move 

This can be used both to copy a part of or an entire 
program to a different location, or to open up a gap to 
provide space for those instructions you forgot to include 
first time around. Remember that branch instructions 
will be affected if you do this. 


5. List Bytes 

Used to list the decimal contents of a series of addresses. 
A machine code program can thus be written in 
assembler and listed, the individual bytes being poked 
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during a Basic program using a routine of the form: 

100 FOR N = 49182 TO 49207 
110 READD: POKE N,D 
120 NEXTN 

130 DATA 169,0,133,251 . 


6/7 Save Bytes/Load Bytes 

This routine will allow your laboriously typed in 
programs to be saved onto tape for future use. Note that 
they will be completely relocatable, all you need do is 
enter the start location when loading. 


8. End 

Ends the program. 


Graphics characters 

Line 

120 Clear 
209 2 cursor down 
770 2 cursor down 
945 cursor down 
985 cursor down 
1000 cursor down 
1200 cursor down 
1600 cursor down 
1615 cursor down 
1820 cursor down 
1850 cursor down 
2000 cursor down 
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The program 


Lines 

115 

125- 160 
180- 230 
240- 598 
600- 700 
750- 780 
800- 920 
930- 990 
1000-1030 
1200-1310 
1320-1550 
1600-1840 
1850-1940 
2000-2100 
3000-3260 


Dimension arrays to be used in program 
Read in assembly mnemonic data 
Print menu and read keyboard 
Assembler 

Hexadecimal to decimal converter 

Print register contents 

Decimal to Hexadecimal 

List Bytes 

Run m/c 

Block move 

Branch routine 

Disassemble 

Save bytes 

Load bytes 

Assembly mnemonic data 


100 REM MRCHINE CODE RID 
110 REM 

113 DIM R«<160),JM<26,10>,BN<26,10> 

120 PRINT " 

1 25 J=» 1 

130 RERD 

1- 4-0 IE R»<J)- , 'END" THEM J-J-l :GOTO 170 

130 -J —1 

160 GOTO 130 

170 E«a"HOT RECOGNISED" 

130 PRINT "Ml. RSSEMBLE" 

130 RRIMT ”2- DISASSEMBLE" 

200 RRIMT *• 3 - RUM M^C ** 

202 RRIMT " *4 . BLOCK MOVE" 

20-4 RRIMT ”5. LIST BYTES" 

203 RRIMT ”6. SAVE BYTES" 

206 RRIMT "7. LORD BYTES" 

203 RRIMT " 3 . STOP" 

203 RRIMT "MM" 

210 GET Q:* : IF •• •• THEN 210 

220 IF Qs*>”3” OR Q#<”1” THEM 210 

220 OM VflL<Q«> OOTO 2-40, 1600, 1000, 12O0,9 

30 .» 1 3350 2000 3300 

233 REM RSSEMBLE 

2- 40 RRIMT ”ASSEMBLE®” 

243 INPUT "START LOCATION";flD 

230 RRIMT AD; 

260 IMRUT 

27-0 IF QMJ—••END" THEM 1320 

27-2 IF MIDS<Q»,2, 1><>" ” THEM 23-4 

274 LF »RSC < LEFT $ < Q*, 1 > >-64 

276 Q*-RIGHT*<Q$, LEM < > — 2> 

230 IF BN<LF, 1K>0 THEM RRIMT ••DUPLICATE 

LABEL” GOTO 260 

232 BM<LF,1)-AD 

233 JM<LF > 1 > *■ AD 

23-4 IF LEN<Q#)-3 THEM C#-Q« = GOTO 233 
236 GOSUB 500 
233 FOR R—1 TO J 
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300 I R cap — LEFT* < Rs* < R > > LEN < R* < P > > —3 > THEN 
3-4-0 

310 NEXT R 
320 PRINT 
330 GOTO 250 

3-4-0 CD*»M I < R5* < R > > LEN < R* < R > > —2 ^ 2 > 

342 GOSUB 600 
350 POKE fiD.CD 
360 RD=»RD+1 

370 IF RIGHT* <R*CR? .» 1 > =» *' 1 ** THEM 250 

330 IP RIGHT*<fl*<R), 1)=» ,, 3" THEN -430 

330 IR OP>255 THEN PRINT E$:flD*RD-l=GOTO 

250 

-400 POKE RD.OR 
-4 10 RD-RD+1 
-4-20 GOTO 250 

•430 IR OR>65335 THEN PRINT E* = GOTO 250 

448 POKE RD.. OP— < < INT < OP/256> >*256> 

-450 RD s »flD+1 

460 POKE RB, INT < OP/256> 

470 RD-RD+1 
-430 GOTO 250 

500 ROR N=- 1 TO LEN<Q*) 

5 10 IR MID*<Q*,N, 1)-" •• THEN 550 

520 NEXT N 
530 PRINT E:* 

5-40 GOTO 250 

550 C*-LEFT*<Q*,N-1) 

560 IR RIGHT*<Q*, lX-'-S" RNB RIGHT*<Q*, 1 

> >=> *' 0 ** THEN 536 

532 LF-RSC <RI GHT* < > 1 > > —3-4 

53-4 IR LERT4CQS, 1 > O'* B " THEN 57-3 

533 ROR TS-2 TO 10 

533 IR BN<LF,TS>-0 THEN BN<LFT3>*RD+1 = G 

OTO 533 . 

57-0 NEXT TS 

57-2 PRINT " OUT OP LABEL SPACE" : GOTO 230 
57-S IR LEFT* < GO* „ 1 > <> " T •• THEN PRINT E$ : GO 

TO 230 

530 ROR TS-2 TO 10 

532 IR JM<LR,T3>-0 THEN JMCLR,TS^=RD+1 : G 

OTO 533 

53-4 NEXT T3 

533 GOTO 57-2 

533 OP-VAL < M I < Q*P > N+ 1 > LEN < > —N > > 

533 RETURN 
300 N=»l : CD*0 

310 POR S=- 1 TO LEN < CD* > 

320 T^*M I Ty* < CB* LEN < CD* > —S-*- 1 ^ 1 > 

330 IR ASCCT*>>58 THEN 330 

€-40 HT»VRL<T*> 

350 GOTO 37-0 

330 HT»RSC<T*)-55 

37-0 CD=»CD+N*HT 

330 N*»N3* 1 3 

330 NEXT S 

7-00 RETURN 

7-50 PRINT " fllBJACOUM X REG V REG " 

760 PRINT PEEKC7S0>" "PEEK<781>" 

" REEK < 7-32 > 

7-7-0 PR I NT ” e!DRj" 

7-30 RETURN 

300 NJ»INT < N/16> 

310 NK=»N—< I NT <N/13> >4*13 
320 IR NJ<10 THEN 350 
330 N**CHR* < 55+NJ) 

84W GOTO 330 

350 N^=-R I GHT* < STR* < NJ > > 1 > 

330 IR NK<10 THEN 330 
37-0 T*»CHR* C 55+NK > 

330 GOTO 300 
330 T*»STR*<NK) 

300 N*»N*+R I GHT^f < T^C ^ 1 > 

320 RETURN 

330 PRINT "LIST BVTESW" 

335 INRUT "START LOCATION";AD 
3-4-0 INPUT "END ADDRESS" i NB 

3-45 PRINT "WJ" 

350 ROR BL=RD TO NB 
330 PRINT BLPEEK< BL> 

37-0 ROR D=> 1 TO 1000 : NEXT 
330 NEXT BL 
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985 PRINT " SPRESS flNV KEV FOR MENU" 

986 NU*PEEK<197> 

987 IF NU=64 THEM 986 
330 GOTO ISO 

1000 PRIMT "RUM M^C»" 

1 005 INPUT '■ STRRT RDDRESS" ; flD 
lulu SVS HD 
1020 GOSUB 750 
1030 GOTO 1SO 

1200 PRINT "BLOCK MOVEW" 

1205 INPUT "STRRT LOCATION";SR 
1210 INPUT "END LOCRTION'SEN 

1220 INPUT "HOW FRR <+/->";NB 
1230 IP NB<0 THEN 12SO 
1240 POR M—EN TO SR STEP-1 
1250 POKE M+NB> PEEK CM) 

1260 NEXT M 
1278 GOTO ISO 
12SO POR M*SR TO EN 

1230 POKE M+NB,PEEK<M> 

13O0 NEXT M 

1310 GOTO ISO 

1320 POR TS-1 TO 26 

1330 IP JM<TS,1)*0 THEN 1330 

1340 POR T3=»2 TO 10 

1350 IP JM<TS,T3)-0 THEN 1330 

1 360 POKE JM < TS .. T3 > - JM < TS - 1 > — < < I NT < JTM < TS 
- 1 >/236> > *256> 

1 370 POKE -JM < TS .. T3 >-*-1^1 NT < JM < TS > 1 > /256 > 

1380 NEXT T3 

1330 NEXT TS 

1-4-00 POR TS — 1 TO 2«S 

1-4-10 IP BN<T3, 1>=»0 THEN 15 10 

1-4-20 POR T3=»2 TO 10 

1-4-30 IP EN < TS > T3>=0 THEN 1510 
1 440 TV—BN < TS , 1 > —BN < TS .- T3 > 

1-4-50 IP TV> 127 OR TV<— 128 THEN PRINT " IM 
VALID BRANCH RDDRESS "BN<TS,T3> 

1460 IP TVCO THEN 1430 
1470 POKE BN<TS.T3>,TV-1 
14SO GOTO 1500 

1430 POKE BN < TS * T3 > * 256+TV—1 
1500 NEXT T 3 
1510 NEXT TS 

1520 POR TS=1 TO 26:POR T3=1 TO lO 

1 530 BN < TS .- T3 > =0 = JM < TS , T3 > —O 

1540 NEXT T3,TS 

1550 GOTO ISO 

1600 PRINT "DI8ASSEMBLEM" 

1605 INPUT "STRRT LOCATION" RD 
1610 INPUT "END RDDRESS" i NB 
ISIS PRINT " W 
1*520 POR P = RD TO NB 
1630 N*PEEK< P > 

1640 GOSUB 300 
1 <550 POR S—1 TO -J 

1*5.50 IP MID*<Ric:S)/LEN<R*<3))-2,2>=»Ni TH 

EN 1700 

1670 NEXT S 

1*530 PRINT E -M- 

1630 GOTO 1SOO 

1700 PRINT P;LEPT*<ASCS>,LEN<R*<S>>-3>" 

1710 IP R I GHT* < H*C <S> - 1 > — " 1 " THEN PR I NT : G 

OTO 1300 
1720 P»P+1 

1730 IP RIGHT*<fliCS).1)*"3" THEN 1770 

17-40 PRINT PEEK < P > 

1760 GOTO 1SOO 

1 7”7*0 PR I NT PEEK < P > +236*PEEK < P-*- 1 > 

17-30 P —P-*-l 
1300 NEXT P 

1320 PRINT "WPRESS RNV KEV POR MENU" 

1322 NU-PEEK<137> 

1324 IP NIJ*64 THEN 1322 

1340 GOTO ISO 

1350 PRINT "SAVE BVTESW" 

I860 INPUT "STRRT ADDRESS";RD 

137-0 INPUT "END RDDRESS" J NB 

1330 POKE 251 > RD— < < INT < RD/256> > *256> 

1330 POKE 252, INT < AD/256> 

130O POKE 780,251 
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POKE 781>MB—<CINTCNB/256>)*256) 

POKE 732, INT< NE/256> 

SVS 63436 
GOTO 180 

PRINT "LORD BVTESM" 

INPUT "LORD ADDRESS" i RD 

POKE 780,1:POKE 7811 
POKE 782 > 0 
SVS 63466 
POKE 780- 0 
SVS 63463 
POKE 780.0 

POKE 7”S 1 . RD- < < I MX < RD/256 > > h*2:5«S > 

POKE 782,INT<flD/236> 

SVS 63493 
OOXO 130 

DRXR RDCIN632- RDC6D3> RDCX7D3> RDCV79 
3 > RDC I X6 1 2 .■ RDC I V7 1 2 

3010 DRXR RMDIM292^ RND2D3> RMDX3D3 ^ RNDV39 
3-RMDIX212,RMDIV312 

3020 DRXR RSLR0R1 - RSL0E3.. RSLX1S3, BCC902.. 
BCSB02,BEQF02 

3030 DRXR BIX2C3. BMI302 > BMED82. BPL102> BR 
K001,BVC302,BVS702 

3040 DRXR CLC181,CLDD81,CLI581,CLVB81,CM 
R I MC92 -• CMPCD3 

3030 DRXR CMPXDD3 .. CMPVD93 .. CMP I XC 12, CMP I V 
D12,CRXIME02 

3060 DRXR CPXEC3> CRVIMC02.. CRVCC3. DECCE3- 
DECXDE3, DEXCfll > DEVSS1 

3070 DRXR EORIM492,EOR4D3,EORX3D3,EORV33 

3„EORI X 412,EORIV312 

3080 DRXR INCEE3,INCXFE3,IMXE81,INVC81,J 

MP4C3> JMPI6C3> JSR203 

3030 DRXR LDR I MR92 > LDRRD3 . LDRXBD3 .. LDRVB9 
3.LDRIXR12,LDRIVB12 

3100 DRXR LDXIMR22- LDXRE3 - LDXVBE3- LDVIMR 
02,LDVRC3,LDVXBC3 

3 110 DRXR LSRR4R1 .. LSR4E3.. LSRX3E3> MORER1 > 
ORRIM092> ORH0D3> ORRX1D3 

3120 DRXR ORRV133 > ORRIX012- ORRIV1 12. RMR4 

81, PHP081 . PLR681 > PLP281 

3130 DRXR ROLR2R1 . ROL2E3 > ROLX3E3, RORR6R1 
. ROR6E3. RORX7E3> RXI401 

3140 DRXR RTS601 > SBCIME32 .. 3BCED3> SBCXFD3 
.. SBC VF33 . SBC I XE 1 2 - SBC I VF 1 2 

3 1 50 DRXR SEC3S 1 ^ SEDF8 1 .. SE I 7*S 1 .. SXR8D3 .. SX 
RX3D3.. SXRV993> SXRIXS12, SXRIV312 
3160 DRXR STX8E3,SXV8C3,XRXRR1,XRVR81,XS 

XBR1.XXRSR1-XXS3R1-XVR981 

3200 DRXR RDC2632,RDC2X752,RNDZ232,RNDZX 

352 .. ASLZ062> RSLZX162 

32 1 0 DRXR B I TZ242 .. CMPZC32 .. CMPZXD32 > CPXZE 
42,CPVZC42,DECZC62 

3220 DRXR DECZXD62,EORZ432,EORZX332,INCZ 

E62,INCZXF62,LDRZR52 

3230 DRXR LDRZXB32,LDXZR62,LDXZVB62,LDVZ 

1=142, LDVZXB42, LSRZ462 

3240 DRXR LSRZX362,ORRZ032,ORRZX132,ROLZ 

262,ROLZX362,RORZ662 

3250 DRXR RORZX762,SBCZE32,SBCZXF32,SXRZ 

832,SXRZX332,SXXZ362 

3260 DRXR SXXZV962,SXVZ842,SXVZX942,END 

3300 END 


1310 
1 320 
1 330 
1 340 
2000 
20 1 0 
2020 
2030 
2040 
2050 
2060 
2063 
2070 
2000 
2030 
2100 
3000 


RERDV 


CHEQUE BOOK 
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If you were thinking of buying a disk drive or printer to 
add to your Commodore system, this program will let 
you know if your bank acount can stand the shock. 

Be careful about running this program in front of your 
wife, parents or friends as, if your account goes into the 
red, the word OVERDRAWN will flash off and on! 


How to play 

To use, enter your opening balance, followed by a list of 
cheques out and payments in. Each list should be 
completed with a zero so you may have to do a little 
rounding up and down. 

Thecomputer will prompt you for each list. 

When completed, the computer will calculate your debits 
and credits and give you your current situation. 

This program can easily be adapted to be used for 
household accounts, standing orders or even a small 
business ledger. 


Programming hints 

The procedure in lines 380-420 is of interest. This is the 
item which produces the word and action of 
OVERDRAWN, so you can delete this section if it bothers 
you. 
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Graphics characters 

Line 

120 Clear 
400 9 cursor left 
410 9 cursor left 


The program 


Lines 

140 Input number of different accounts 
160 Perform main loop AC times 
200-270 Input balance and list of cheques 
280-340 Input payments 
360 Print new balance 
380-420 Flash overdrawn if applicable 
470 Printtotal of all accounts 


1 00 
110 
1 20 
1 30 
1 -40 
1 50 
1 30 
1 7*0 
1 30 

1 30 
200 

2 10 
220 
230 
240 
250 
230 
270 
230 
230 
300 

3 10 
320 
330 
3-10 
350 
330 
370 
330 
330 
332 
-=100 

4 10 
4 12 
420 
430 
440 
450 
430 
470 
430 
430 


REM CHEQUE BOOK 


REM 

PRINT " ri" 

RR I NT 

INPUT "MOW MflNV ACCOUNTS" J RC 
RR I MT 

FOR L_= 1 TO RC 
RR I MT 

RRIMT "ACCOUNT MO- " L_ 

RR I MT 

IMRIJT "LAST KNOWN BALANCE" J EL 
RR I MT 

RRIMT "CHEQUES SINCE" 

RR I MT 
IMRUT CH 

IR CH=0 THEM 230 
BL=BL-CH 
GOTO 240 
RR I MT 

RRIMT "PAYMENTS IN" 

RR I MT 
INPUT PV 

IR RV=0 THEM 350 


BL-BL+PV 
GOTO 310 
RR I NT 

RRIMT "VOUR CURRENT BALANCE IS 

IR BL>=0 THEM 430 

ROR J=1 TO 10 

RR I MT " OVERDRAWN " 

ROR DE=1 TO 1000 NEXT 
RRIMT "■■■■■■■■■■ 

PRINT "■■■■■■■■■■" -< 

ROR DE=1 TO 300:NEXT 

NEXT J 

RRINT RRIMT 

TB=TB+BL 

BL=*0 

NEXT L_ 

RRIMT "TOTAL BALANCES = "TB 

RR I MT 

END 


" BL 






METRIC CONVERTER 
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Are you still having arguments in your house about 
metres and feet or litres and gallons? Here is a simple to 
use conversion program so that everyone in the family 
can be right. 

The program is composed of distinct modules wilth 
selection by a menu both for ease of use and to enable 
further conversion routines to be added as required. 


How to play 

To use, press the number key corresponding to the 
required conversion then input the metric weights or 
measures. To return to the menu enter a zero. 


Graphics symbols 

Line 

120 Clear, 2 cursor down 
160 2 cursor down 
250 2 cursor down 
320 Cursor down 
350 2 cursor down 
420 Cursor down 
450 2 cursor down 
550 Clear 


The program 

Lines 

118 Defines function to print to one decimal place 
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120-160 Print menu 

170-220 Get choice and goto routine 

250-340 Kilo to pounds conversion 

350-440 Metres to feet 

450-540 Litres to gallons 


100 REM METRIC CONVERTER 
110 REM 

118 DEF FNROO«INT<Xstil0)/10 

120 print ■■ rxttrw 

130 PRINT "l- KILOGRRMS TO POUNDS & OUNC 

ES ■' 

1- 40 PRINT "2- METRES TO FEET & INCHES" 

150 PRINT "3. LITRES TO GALLONS & PINTS" 

1 60 PR I NT "-*4. STOPWS" 

170 FOR -J—1 TO 10 

180 GET GA» 

1 84 NEXT -J 
190 OET K3* 

200 IF K^C" 1 " OR K*>"-4" THEN 190 

210 K*VRL < Kar > 

220 ON K GOTO 250,350,450,550 

2- 40 REM KILO TO LB 

250 PRINT "INRUT KILOGRRMSXW" 

260 INRUT KG 

270 IF KG—0 THEN 120 

2S0 OZ*KG#2.2046#16 

290 IF I NT <02X16 THEN 320 

300 PD=INTCOZ/16> 

310 OZ=»OZ-PD*16 

320 RRINT RD "LBS" FNR(OZ) "OZSW" 

330 PD=0 : 02 — 0 : KG —0 

3- 40 GOTO 260 

345 REM METRES TO FT 

350 RRINT "INRUT METRES JSOQ" 

360 INRUT MT 

370 IF MT—0 THEN 120 

3G0 IN-MTW39.37 

300 IF INTCINX12 THEN -420 
-400 FT-INTCIN712) 

-410 IN—IN — FT#12 

-420 RRINT FT "FT" FNRCIN) "INW" 

430 FT — 0 = IN —0 : MT —0 
-4-40 GOTO 360 

-4-45 REM LITRES TO GALLONS 

-450 RRINT "INRUT LITRESWW" 

-460 INRUT LT 

-420 IF LT —0 THEN 120 

-400 RN»LT#1 - 75985 
-400 IF INT<RNX© THEN 520 

500 GL=INT < PH/8> 

510 RN*RN-GL*8 

520 RRINT GL "GAL" FNA < RN > 

530 PH=0:GL—0:LT—0 
5-40 GOTO -460 

550 RRINT "73" 

560 END 


R I NTS 



MAZE CHASE 
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Maze chase has you being chased around a maze by four 
evil looking blue ghosts intent on your downfall. In the 
true tradition of things, the ghosts can happily move 
throughthe maze walls butyou cannot. 


Howto play 

You can move around the maze using keys O and P for 
left and right and keys Q and A for up and down. Points 
are gained just by staying alive. You will need to keep 
your wits about you as well as moving with lightning 
reactions as this game needs some skill to play. Any 
score above 1,000 can be classed as respectable. 


Programming hints 

For those that like to tinker with programs, the maze is 
defined in lines 870 to 1070. Lines 870 to 940drawthetwo 
vertical sides at the left and right of the screen. Lines 950 
to 1070 control all horizontal barriers. This second 
section uses the data ij? lines 1050 — 1070 to print 
alternatively a number of solid blocks onto the screen 
followed by a number of spaces. For example, the first 38 
locations of screen memory are solid blocks, the next 85 
are spaces, the next 11 solid blocks. 

By using this method the whole structure of the maze can 
be changed via only three lines of data to make the game 
easier, or more difficult. 




92 


Graphics characters 

Line 

850 Clear 
1130 Home 
1280 Home 
1380 Cursor down 
1580 Clear 
1600 3 cursor down 
1660 4 cursor down 


The program 


Lines 

140 

150-170 

180-350 

370 

380-590 

610-760 

770-790 

800-840 

850-1070 

1090-1220 

1240-1300 

1320-1360 

1370-1670 

1680-1760 

1770-1790 


Look at keyboard 
No key pressed 
Move 

Random ghost number 
Move ghost 

Define graphics characters 

Set screen colours 

Set sound registers 

Print initial screen 

Initial values and positions 

Main subroutine calling loop 

Caught by ghost 

Calculate and print high score table 

Newgame 

End of program 


100 REM MAZE CHASE 

110 REM 

120 GOTO e- 1 0 

130 REM MOVE 

140 K“PEEK(. 1S»7> 

150 IE K<>6-4 THEM ISO 

160 EOR DE=1 TO 25 NEXT 

1 7” 0 GOTO 3-40 

130 RN=RO GM=CO 
190 IE K=38 THEM CM*CM-1 

200 IE K=41 THEM CM-CM+1 

210 IE K=10 THEM RM*RM-f 1 

220 IE K=fe2 THEM RM=RM—1 
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230 IE CM>38 OR CMC 1 OR RN>25 OR RN< 1 TH 
EM 340 

240 X*PEEK<RN*40+CM+1024> 

230 IF X=34 THEM 340 

260 IE X*36 THEM 1320 

270 IE CM=CO AMD RM=RO THEM 340 

280 POKE S+1..55 

290 POKE S+4,83 

300 POKE RO#40+CO+1024,32 

310 POKE RM#40+CN+1024,35 

3220 POKE RM#40+CN + 5529b .• 2 

330 RO = RM:CO=CM 

340 POKE S+4,0 

350 RETURN 

360 REM MOVE GHOSTS 

370 R»IMT<RMDt0>*4>+l 

3S0 IE MS < R . 1 >=RM THEM 480 

390 POKE MS < R . 1 > *40+MSCR, 2>+l024. ST < R > 

400 POKE MS < R . 1 > *40 + NS CR,2) +55296 . 5 

410 MS C R . 1 > =MS < R . 1 > +SGN < RM — MS < R .. 1 > > 

420 ST CR) =PEEK < MS < R . 1 > #40 + NS < R . 2 > -*- 1 024 > 

430 I E ST CR>036 THEM 450 

440 ST 7 R > =32 

450 POKE MS < E . 1 > #40+N3 < R . 2) + l 024 . 36 

460 POKE NS<R,1>*40+MS<R,2>+53296,6 

470 POKE S+l>25:POKE S+4,33 

480 IE MS<R,2)=CM THEM 570 

430 POKE MS<R,1)#40+NS<R,2>+1024,ST(R> 

300 ROKE MS < R . 1 > *40+-MS (R,2) +55296 . 3 

5 10 MS < R -■ 2 > =NS < R . 2 > -+-SGM C CM —MS < R . 2 > > 

520 ST < R 2 =PEEK < MS < R .. 1 > *40 + MS < R . 2 > +■ 1 024 > 

530 I E ST<RK>36 THEM 550 

540 ST CR)=32 

550 POKE MS (R, 1 > *40+NS (R, 2 > -+- 1 024 . 36 

560 ROKE MS (RO #40 + NS (R, 2 > +55296 . 6 

570 IE R N = M SCR, 1> HMD CM — NS<R.2> THEM 13 

20 

5S0 ROKE S+4,0 

590 RETURN 

600 REM INITIALIZE 

610 ROKE 55.O ROKE 56.56 

620 RRIMT CHR$< 142 > 

630 ROKE 56334.REEK<56334> AMD 254 

640 ROKE 1 . REEK < 1 > RMD 25 1 

650 EOR T=0 TO 511 

660 ROKE J+14336, PEEK C J +53248) 

670 NEXT -J 

6S0 ROKE 1 . REEK < 1 > OR 4 

690 ROKE 56334.REEKC56334> OR 1 

700 ROKE 53272 . < REEK < 53272 > RMD 240 >-4-14 

710 FOR J=14608 TO 14631 

720 READ B • ROKE -J . B 

730 NEXT _T 

740 DRTR 255.255.253.255.255.255.255.255 

750 DRTR 56.68.56.108.170,56.68.190 

768 DRTR 56.124.186.255,255,198.56.56 

7*7-0 ROKE 53280.0 

780 ROKE 53281.0 

790 ROKE 646.1 

800 3=54272 

810 EOR _T = S TO S + 23 

820 ROKE -J .. 0 

830 NEXT -J 

840 ROKE 3+24.15:ROKE S+6,240 

850 RRIMT ■' n" 

860 REM DRRN MRZE 

870 EOR T=0 TO 960 STER 40 

880 ROKE J+1024.34 

890 ROKE J+55296,5 

800 NEXT JT 

810 EOR J = 3S* TO 1000 STER 40 
820 ROKE J+1024.34 

330 ROKE J+55296,5 


340 

NEXT 

J 



850 

EOR 

-J = 0 

TO 

*360 

860 

RERD 

B 



970 

EOR 

K~0 

TO 

B 


880 ROKE J+K+1024,34 

990 ROKE J+K+55296.5 

1000 NEXT K 

1010 J =T + B —1 
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1020 REE FID B 

1030 -T = ._T -t-B 
1040 NEXT T 


1 050 

5.86 

DATA 

38 

. 85 

.. 1 

1 

' s - 

1 2 .. 

2 .• 3 .• 

82^ 6 .. 2 > 

2 1 

.. 2 . 

1 060 

DATA 

1 4 , 

• 2 -■ 

20 

- 

82 

24 

2 .. 1 0 

.. 86 ,11, 

2 -• 

14, 

1 0 7-0 

DATA 

82 

■ 24 2 

j. 

10.. 

86 .. 

~F , 2 , 

8,2,17, 

e i 

.. 40 


., 0 

1 0&0 REEM I M I TIRL V ALLIES 

1090 MS 1 .. 1 3 =2 MS < 1 .. 2 > = 5 

1 1 00 MS 2 ... 1 3 =2 - MS < 2 .. 2 3 =30 

1110 MS < 3 1 3 = 23 MS < 3 2 3= 3 

1 1 20 MS < -4 -■ 1 >=23 MS < 4 .. 2 > =30 

1 1 30 F’R I MX '■ £3" TAB < 1 4 3 " SC ORE : 

1140 FOR -T=l TO 4 
1150 STCJ>=32 

1 1 60 POKE MS J , 1 3 #40 + MS < -J .. 2> + 1024, 36 

1 1 T’0 POKE MS -J l 3 #40 + MS < -J .. 2 3 +55296 ^ 6 

1 ISO ME XT -J 

1 1 9 0 R M = 1 O F' O = 1 0 
1 200 OM = 1 S C:O = 1 S 

1 2 1 0 F-OKE RM + 40+C:M-+- 1 O24 .. 35 

1220 POKE RM+40+CM+55296,2 

1230 REM NR1M LOOP 
1 240 GOSIJE 370 
1250 GOSIJE 140 
1360 GOSUE 370 
1 2 0 sO = SC+ 1 0 

12S0 RRIMX ■■•sa" TRE C 20 > SO 

1 2 3 0 13 O S U B 140 

1300 GOTO 1240 

1310 REM CAUGHT 

1320 POKE S+4,83 

1330 EOR J=20@ TO 10 SXER —1 

1 340 POKE S-+- 1 , -_T 

1 350 M EXT -_T 

1360 EOKE S+4,0 

1370 EOR -J=l XO 13 

1 330 RRIMX "W" 

1330 MEXX J 

1400 RRIMX "VOUR SCORE: "SO 

14 10 EOR -J=l XO 10 
1420 GET GA$ 

1430 MEXX J 

1440 MM$«"" 

1 4550 IMRUT " VOUR NRME" J MMX 

1460 IE LEM < MMX >>15 THEM RRIMX "TOO LONG 
I " - GOTO 1450 
1470 Sfi<10>=SO 
1480 MX<103= MMX 

1430 EOR -J=10 XO 2 SXER —1 

1300 IE SR< JXSAC J — 1 3 THEM 137-0 

15 10 XR = SR< J —1 > 

1 520 TX = MX < J—1 3 
1530 SR < _T— 1 3 =SA < -J 3 
1540 MX < JT— 1 > =N$ < -JT 3 
1550 SA<J>=XR 
1360 MX < J > = XX 
1570 MEXX J 

15S0 RRIMX " Tl” 

1530 RRIMX TAB<103 "HIGH SCORE TABLE" 
1600 RRIMX ‘•ya&LtfV 

1610 EOR M=1 XO 3 

1620 RRIMX TAB <53 M" "SA<M3 " " J 

1630 RRIMX MX < M 3 
1640 MEXX M 
1650 RRIMX - RRIMX 

1660 RRIMX TAB< S 3 " WWWWPRESS R XO PLAV" 

1670 RRIMX TAB <14 3 "S XO STOP" 

16S0 GET Q$ 

1630 IE QX="" THEM 1680 

17-00 IE G!XO"R" THEM 17-7-0 

17-10 SO=0 

17-20 RESTORE 

17-30 EOR _T=1 XO 24 

17-40 READ GA 

17*50 MEXX T 

17-60 GOTO 850 

1770 POKE 49152,0 

1 780 SVS 43 152 

1 790 EMD 


PENGUIN 
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It's no fun being a penguin nowadays. Sixeggsto protect 
from marauding birds and only a laser cannon for 
company. See howyou fare as a penguin. 


Howto play 

Move using keys O and P for left and right. Fire your laser 
by pressing the space bar. You have only one shot at 
each bird, so aim well otherwise you will lose an egg. 

The game ends when all six eggs are lost. 


Graphics characters 


Line 


120 

Clear 

160 

6 cursor down 

170 

6 cursor down 

180 

Cursor down 

770 

Clear 

780 

Home 

1350 

Home 

1370 

Cursor down 

1580 

Clear 

1600 

3 cursor down 

1660 

4 cursor down 

1870 

Home 
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The program 

Lines 


120-150 

Clear screen and set colours 

160-190 

Title screen 

210-500 

Look at keyboard and move penguin or fire 
laser 

520-710 

Define graphics characters 

720-760 

Initial values and screen colours 

770-780 

Print headings 

790-840 

Set sound registers 

850-890 

Initial values 

900-950 

Lay eggs 

970-1260 

Move bird towards selected egg 

1280-1340 

All eggs eaten 

1350-1390 

Print final score 

1400-1420 

Empty keyboard buffer 

1430-1670 

Calculate and display high score table 

1680-1710 

New game 

1720-1840 

New bird positions 

1860-1890 

Update score and eggs left 

1900-1920 

End of program 


100 REM PENGUIN 

110 REM 

120 PRINT "Tl" 

130 POKE 53280,7 
1 -40 POKE 5328 1,7 
130 POKE 646,2 

160 PRINT TRB U5> " PENGU IN" 

170 PRINT " ’M&aXD&MlUl" TRB<3> "KEVS O RND R 

TO MOVE LEE T RND RIGHT" 

ISO RRIMT "W TflE<3> "SPRCE-BRR TO EIRE 

LRSER ’* 

190 GOTO 520 

200 REM MOVE SUBROUTIME 

210 KV=REEK<197> 

220 IE KV=64 THEN 240 

230 POKE 1944+PC,32 

2*40 IE KV-38 FIMD RC>3 THEM PC=PC-1 

250 IE KV=41 RND PC<38 THEM RC=PC+1 

230 POKE 1944+RC,34 

27*0 POKE 562 16+ PC,0 

230 IE KVO60 THEM 500 

230 IE FF=1 THEM 500 

300 POKE S+1,60TOKE S-+-4 ^ 129 

310 FOR K=22 TO BR STER —1 

320 POKE K#40 + PC+ 1 024 j> 38 

330 POKE K#40+PC+55296,2 

3-40 MEXT K 

350 POKE S-*-*4 .. 0 

360 FOR K=22 TO BR STER —1 


370 POKE K*40+PC+1024,32 

380 NEXT K 

390 FF=1 

400 I F PCOBC OR BR>=23 THEM 500 

•4 10 POKE S+1,50:POKE S-*--4 . 83 

420 GOSUB 210 

-130 POKE S-#-*4 . 0 

440 SC=SC+100 

450 POKE 53281 . 1-4 

460 M<WE)*0 

470 GOSUB I860 

480 GOSUB 210 

490 GOSUB 1720 

500 RETURN 

510 REM INITIALIZE 

520 POKE 55.0 

530 POKE 56.56 

5-40 PRINT CHR$ < 1 42 > 

550 POKE 56334 . PEEK cl 56334 > AND 25-1 
560 POKE TPEEKU) RND 25 1 
570 FOR T = 0 TO 511 

580 POKE J+14336, PEEK < J +53248) 

530 NEXT J 

600 POKE 1 . PEEK! < 1 > OR -4 

610 POKE 56334 .. PEEK < 56334 > OR 1 

620 POKE 53272,CPEEK<53272) AND 240>+14 

630 FOR -J = 1 4603 TO 14647 

640 READ JB 

650 POKE -J . B 

660 MEXT -J 

670 DATA 2S.56.60.102.102.102.102.60 

6S0 DATA 0.0,24.60.60.60.60.24 

630 DATA 128.130.206.252.56.120.110.71 

700 DATA 1.65.115.63.23.30.118.226 

710 DATA 8.S.S.S.3.3.3.S 

720 D= 102-4 

730 C—55236 

740 ROKE 532S0. 1-4 

750 ROKE 5323 1.1-4 

760 ROKE 646.3 

7*7*0 PRINT ** TT* 

780 RRIMT TAB(5) "EGGS LEFT = " SPCC8) 

••SCORE " 

730 3=5-427*2 

300 FOR JT = S TO S + 23 

S 1 0 ROKE -J . 0 

820 MEXT -T 

830 ROKE S+24.15 

3-40 ROKE S+6.240 

850 FOR T=1 TO 6 

860 M < .JT > =0 

ST’S MEXT -T 

880 30=0 

830 RC=15 

300 FOR J=1 TO 6 

310 ECCJ>=J*5 

320 ROKE 1984+J*5.35 

330 ROKE 56256+J#5.6 

3-40 MEXT J 

350 EL=6 

360 GOSUB I860 

37*0 FOR T= 1 TO 6 

380 GOSUB 1 7*20 

330 GOSUB 210 

1000 ROKE BR*40+BC+D,S3 

1010 ROKE BR*40+BC+C.C3 

1020 GOSUB 210 

1030 IF BC< = EC(NE> THEM 107*0 

10-40 BC = BC— 1 

1050 ME=36 

1060 GOSUB 210 

107-0 IF BC>=EC < ME > THEM 1110 

1080 BC=BC+1 

1030 MB=37 

1100 GOSUB 210 

1110 IF ER>23 THEM 1130 

1120 BR=BR+1 

1130 S3 = REEK< BR*40+BC+D> 

1 1 -40 C3=F'EEK BR*40+BC+C > 

1150 ROKE BR*40+BC+D.MB 
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1160 POKE BR^40+BC+C,0 

1 1 7*0 GOSUB 2 10 

1180 IF BCOECCWE> OR BR024 THEM 1250 

1 1 30 POKE S-«- 1 .. 25 - POKE S-*-4 • 83 

1200 POKE BR*40+BC+D,32 

1210 EL=EL—1 

1220 GOSUB I860 

1230 POKE S-«-4.0 

1240 GOTO 1260 

1230 GOTO 1000 

1260 NEXT T 

1270 REM END OP GAME 

1230 POP _T =200 TO 10 STEP —10 


1 230 

POKE 

S-*- 1 

.. -J - 

POKE 

S-*-4 , 

1 300 

POR 

DE= 1 

TO 

1 50 

: MEXT 

13 10 

POKE S-+-4 

-■ 0 



1 320 

POR 

be= i 

TO 

20 - 

MEXT 

1 330 

MEXT 

-T 




1 340 

POKE 

S + 4 

.. 0 



1 350 

PR I MT " ■=* 

" 



1 330 

POR 

T= 1 

TO 

1 3 



1378 PRIMT " W 
13S0 NEXT _T 

1390 PRIMT "VOUR SCORE : "SC 
1400 POR T=1 TO 10 
1410 GET Gflt 
1 420 ME XT _T 

1430 NMt*"" 

1440 INPUT "VOUR NAME" i NN$ 

1430 IP LEN<NM$K15 THEM 1470 
1460 PRIMT "TOO LONG•" GOTO 1440 
1470 SR < 10 >=SC 
14S0 MT(10)*MM$ 

1490 POR J=10 TO 2 STEP —1 
1300 IP SA( JXSfl( J— 1 > THEM 1570 

13 10 TP=SA <r J— 1 > 

1 520 T T = M T< J —1 > 

1 530 SR C -J— 1 > =SA < J > 

1540 N$<J-1)*M$CJ) 

1550 SR(J)=TP 
1530 M$(J)=T$ 

1570 MEXT -J 

1 5S0 PRIMT " 71" 

1 5*30 PRIMT TRB(10) "HIGH SCORE TABLE" 
1300 PRIMT "HSttMl" 

1310 POR M=1 TO 3 

1320 PRIMT TRB<5> M " " SR(M) " "; 

1330 PRIMT NT<M> 

1340 MEXT M 

1350 PRIMT:PRIMT 

1330 PRIMT TAB<8) “ KDHB5WPRESS P TO PLflV" 
1670 PRIMT TAB(14) "S TO STOP" 

13S0 GET QT 

1330 IP QT="" THEM 1330 
1700 IP G*»<>"S" THEM 760 
1710 GOTO 1300 

1720 BC=IMT<RMD<0>#28>+3 

17*30 BR=IHT(RMD(0)#17)+2 

17*40 PP = 0 

1760 WE=INT(RND(0)#6)+1 
1770 GOSUB 210 

1780 IP M < NE ) * 1 THEM 1 7*30 
17*30 M(WE) = 1 

1800 IP BC<16 THEM 1830 

1810 WB*36 

1820 GOTO 1340 

1330 WB=37 

1340 RETURN 

1350 REM PRIMT SCORE 
1330 GOSUB 210 

1870 PRIMT *’ TRB( 15) EL TRB(29) SC 

1330 GOSUB 210 

1330 RETURN 

1300 POKE 49152,0 

1310 SVS 43152 

1320 EMU 



ALIEN STORM 
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It's your turn to save the world as you are pitted against a 
never-ending stream of bomb-dropping aliens 
descending from the top of the screen. 


How to play 

Move your laser base using the 0 and P keys for left and 
right. Fire with the space bar. If you are hit by a bomb or 
an alien lands on your base, you will lose one of your 
three lives. When all lives are lost the game ends. There is 
a choice of 3 skill levels which govern the re-cycle speed 
of your laser—be warned, level 3 is very difficult! 


Programming hints 

By keeping things simple, the program consists of three 
subroutines called in sequence. The action has ben made 
fairly fast without recourse to machine code. You will be 
surprised at whatyourcomputercan do using only Basic. 


Graphics characters 


Line 

120 

Clear 

580 

Home 

760 

Clear 

990 

Home 

1210 

Home 

1290 

Cursor down 

1360 

Clear 
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The program 


Lines 

120- 150 Input skill level 
170- 240 Move alien down screen 
260- 360 Move bombs 
380 Turn off sound 

390 Look at keyboard 

410- 610 Fire laser 
630- 670 Move base 
690- 720 Main subroutine calling loop 
760- 920 Define characters 
930-1100 Initial values and screen 
1110-1270 Base hit 
1280-1330 End of game 
1340-1390 Newgame 


100 REM ALIEN STORM 

110 REM 

120 print ••ra" 

130 INPUT "SKILL LEVEL * 1 TO 3 > *' ■ SK 

140 IE SK<1 OR SK>3 THEN 130 

150 GOTO 6S0 

160 REM MOVE ALIEN 

1 7*0 POKE S+4 .. 0 

130 POKE D+AP/32 

1 90 RF-RP+4L1 

200 IE RP>959 THEN HF - IN » * EMU- 0^*4u -■ +4R 

210 IE RP=EP THEN 1110 

220 POKE D+RP.35 

230 POKE C+AP.5 

240 RETURN 

250 REM MOVE BOMB 

260 IE MOO THEN 300 

270 M=1 

230 MF-RP 

230 GuTiJ 360 

300 POKE D+MP,32 

310 MP=MP+80 

320 IE MP=BP OR MP=BP+40 THEN 1110 

330 IE MP>919 THEN M=0 GOTO 360 

3-40 POKE D + MP * 37 

350 POKE C+MP,4 

360 RETURN 

370 REM MOVE ERSE 

330 POKE S-»-4.0 

390 K=PEEK C 1 S»7* > 

-4O0 IE K—6-4 THEN 670 
410 IE K060 THEN 620 

-420 IE SF>0 THEN 620 
430 POKE D+EP-40,42 
-4-40 3 E =SK 

-450 POKE C + BP-40, 1 
-460 POKE S+L40 
-47*0 POKE S + 4,83 
480 POKE D+BP-40,32 

-430 EOR J = BP — 40 TO 40 STEP — 40 

500 IE PEEK<D+J>=32 THEN 600 

510 IE PEEK C D-*-JT > =37 THEN M = 0 GOTO 5-40 

520 flP= I NT < END C 0 > 3*40 >-*-40 
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530 SC=SC+10 
540 POKE D-*--J . 42 
550 POKE S+1 . 55 
560 POKE S+4,33 
570 POKE D+J,32 

580 PRINT ■■£3" TflB<lS> SC; 

590 GOTO 670 
600 NEXT J 
610 GOTO 670 
620 POKE D+BP.32 

630 IR K=38 RND BP>920 THEM BP=BP—1 

6- 40 IE K=4 1 RND BP<959 THEM BP=BP+1 

650 POKE D+BP.36 

660 POKE C-*-BP.2 
670 RETURN 
630 GOSUB 766 
690 GOSUB 3*30 
700 GOSUB 1 7-0 

7- 10 GOSUB 330 
720 GOSUB 360 
730 SF*=SF— 1 
7-4 0 GOTO 690 

750 REM INITIRLI2E 

760 PRINT ■’ TT' 

770 POKE 55 . 0 - POKE 56 .-56 
730 RRIMT CHR$<1 4 2 > 

730 POKE 56334, PEEK C 56334 ^ RND 254 
300 POKE 1 . PEEK < 1 > RNH 35 1 

310 FOR J=0 TO 511 

330 POKE J+14336 - PEEK(J+53248 > 

330 MEXT -T 

84-0 POKE 1 . PEEK < 1 > OR 4 

350 POKE 56334 > PEEK < 56334 > OR 1 

360 POKE 53273, C PEEK <53273> RND 240 > + 14 

370 FOR J=14616 TO 14633 

330 RERD B : POKE -T .. B 

830 MEXT J 

300 DRTR 1 26 - 255 . 1 53 255 . 255 255 . 1 35,23 1 

3 10 DRTR 0 . 24 . 60 . 1 26 . 255 . 255 . 255 . O 

320 DRTR 0,0,24,24,24,24,0,0 

330 D=1024 

340 0=55236 

350 POKE 53230.0 

360 POKE 53231.0 

370 POKE 646.1 

330 LV=3 

330 PRIMT "SS LIVES: M LV" SCORE : "SC" HI 

SCORE : •' HS 
1000 3=54272 

1010 FOR T=S TO S+23 

1020 POKE J .0 

1030 MEXT J 

1040 POKE S+24,15 

1050 POKE S+6,240 

1060 BP=330 

1070 RP=60 

1030 POKE D+BP.36 

1030 POKE C+BP,2 

1100 RETURN 

1110 POKE S+4,83 

1120 FOR J=160 TO 10 STEP—1 

1 1 30 POKE S-+- 1 . J 

1 1 40 MEXT -J 

1150 POKE S-+4.0 

1160 LV=LV—1 

1170 IF LV=0 THEM 1230 

1130 POKE RP+D.32 

1130 POKE BF' + D , 32 

1200 POKE MP+D,32 

12 10 PRIMT *• £3’* TRBC7 > LV 

1220 RP=IHT < RMD • 0 + 40 > -+-40 

1230 BP=330 

1240 POKE D+BP.36 

1250 POKE C+BP.2 

1260 M=0 

1270 GOTO 630 

1230 FOR T=1 TO 12 

1230 PRIMT M W” 

1 300 MEXT -T 

1310 PRIMT "VOUR SCORE "SC 
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i 3 s* & 

1 3 30 
1 3 4 0 
1 350 
1 360 
1 370 
1 3:3 0 
1 390 
1 400 
1 4 t 0 
1 430 


I F 3O >HS THEM HS = SO 

FOR - J =1 TO 1 0 GET GRt NEXT T 
INPUT "PLflV flGRIN'SQ* 

I R LEF T 4 • 0 4 • 1 > = " M ■* THEN 1 400 
PRIHT 1 ' 73 *' 

30 = 0 

O O 3 l_J t: 3 3 0 

G O T O 69£i 
POKE 4 3 1 5S ... 0 
3VS 431 S3 

END 







MONEYBAGS 
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It's pennies from heaven, or at least dollar signs from the 
top of the screen in this simple but addictive game for 
one player. 


How to play 

You are in control of a catcher which is located at the 
bottom of the screen, and can be moved left and right 
with the M and N keys. Catch as many of the dollars as 
you can but miss 20 and the game ends. As your score 
increases so will the number of dollars on the screen at 
one time, so nimble fingers will be needed for a high 
score. 


Graphics characters 

Line 

410 Home 
430 Cursor down 
580 Home 
804 Clear 
810 Home 


The program 

Lines 

130-150 Mainsubroutinecalling loop 
180-270 Move catcher 
300-310 Incrementdollarnumber 
320-334 New dollar position 
340-350 Move dollar 
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360-390 Missed 
400-476 20 dollars missed 

480-520 Check for new game and set initial values 

530-606 Caught dollar 

700-830 Initial values and screen 


100 REM MOWEVERGS 

110 REM 

120 GOSUB 700 

130 GOSUB ISO 

140 GOSUB 300 

150 GOTO 130 

170 REM MOVE CATCHER 

130 K=PEEK<197> 

190 IE K = 64 THEM 270 

200 POKE P-4- TO 32 : POKE P+l+D,32 
210 IE K=39 AND P>920 THEM R=R—1 

220 IE K=36 AND R<958 THEM R*R+1 

230 POKE D-4-R . 76 

2- 40 POKE D + P+l, 122 

250 POKE C-4-P.2 

260 POKE C-fr-P-4- 1.2 

270 RETURN 

290 REM MOVE NEXT DOLLAR 

300 E=E+1 

310 IE F*=10 THEM E= 1 

320 IE M<E>>0 THEM 340 

322 IE E—1>SC/30 THEM 630 

330 M<F)=IMTCRMD<0>*40> 

334 GOTO 350 

3- 40 IE RMD<0)>.9 THEM 630 

344 POKE M(E)+D,32 

350 M(F)-M<F)+40 

360 IE M < E > <360 THEM 540 

370 POKE S+1,25 

360 POKE S+4.33 

390 NM=NM+1 

400 IE MM<20 THEM 600 

410 PRINT "W 

420 FOR T=1 TO 13 

430 PRINT "M" 

440 NEXT J 

450 PRINT "VOUR SCORE : M SC"W" 

460 POKE S-4-4.0 

470 IE SOHS THEM HS*SC 

47*2 FOR OA= 1 TO 10 

474 GET O* 

476 NEXT OR 

4S0 INPUT " PLRV RGR IN% Q* 

490 IE LEET*CQ^, 1 > =*= " N " THEM 050 

500 SC*0=MM-0 

502 FOR -J=» 1 TO S* 

504 M < T > =0 

506 NEXT -J 

510 GOSUB 304 

520 GOTO 130 

530 POKE S-4-4 . 0 

540 IE PEEKCMCE)+D)<>76 RND PEEK<M<E>+D) 

0 122 THEM 610 

550 POKE S+1,60 

560 POKE S-4-4. S3 

570 SC-SC+10 

5Q0 PRINT "W T RB(12) SC 

590 GOSUB 100 

600 POKE S-4-4.0 

604 M<E>*0 

606 GOTO 630 

610 POKE M(E)+D.164 

620 POKE M < E > -4-C . 5 

624 GOSUB 100 

630 RETURN 

600 REM INITIRE VALUES 
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700 D-=1024 

710 C-53296 

720 POKE 53280. 0 

730 POKE 53261.0 

^■^0 POKE 6-46. 3 

750 S=54272 

760 FOR L_*=S TO S+23 

T'T’O POKE L_ .. 0 

780 NEXT L. 

7*30 POKE S-*-2-4 . 15 

300 POKE S-^6,240 

30-4 PRINT " 73" 

810 PRINT "W" TRE C 5 > "SCORE: "SC 
"MI SCORE: "MS 

820 P*920 

822 POKE P+D.76POKE P+l+D,122 

824 POKE C-*-R . 2 POKE C-*-R-*-1.2 

830 RETURN 

850 POKE 49152,0 

360 SVS 49152 

870 END 


SRC(6) 
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LUNAR LANDER 


Now's your chance to start your astronauts training, as 
you endeavour to guide your landing module through a 
lunarcavern onto the prepared landing pad. 

Howto play 

Control the module's rate of descent by pressing the 
space-bar to fire your retro-rockets, and the 0 and P keys 
to move left and right, but watch your fuel consumption. 
Hold each key down until the computer responds. 

Your horizontal velocity, fuel remaining and vertical 
velocity will be displayed at the top of the screen. Your 
vertical velocity must be down to 2, or less, on landing 
otherwise you will crash. Likewise, if your module 
touches any part of the cavern outside of the two marker 
flags on each side of the landing pad, you will SELF 
DESTRUCT. 


Programming hints 

A skill level at the start of your attempt should make the 
game suitable for all abilities, but can be made even 
easier by increasing the amount of fuel at the start, via 
line 1640. For real experts, a limit can be added to ensure 
that the horizontal velocity is zero on landing in line 700. 
Just add "AND Hl=0" between Vl<3 and THEN when 
typing in the program. 



Graphics characters 

Line 

230 Home 
240 Home 
250 Home 
1200Clear 
1230 Clear 
1620 Home 
1790 Cursor down 
2050 Clear 
2090 6 cursor down 
2100 7cursordown 
2110 Cursor down 


The program 


Lines 
130- 140 
160- 200 
220- 260 
290 

300- 320 
350- 410 
440- 500 
530- 590 
610- 680 
700 
720 

750- 920 
900-1040 
1050-1190 
1200-1230 
1240-1630 
1640-1690 
1710-1800 
1810-1930 


Initial subroutinecalls 

Main subroutine calling loop 

Print velocity and fuel information 

Look at keyboard 

No key pressed so delay 

Move left 

Move right 

Slow descent 

Move module 

Check for correct landing 

Check for sprite to character collision 

Define characters 

Define sprites 

Initial values 

Input skill level 

Set up screen 

Initial values and enable sprite 
Collision with cavern wall 
Check for newgame 
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1950-2030 Successful landing 
2050-2120 Printtitle screen 


100 REN LUNRR LRNDER 

110 REM 

120 REM INITIRL ROUTINES 

130 GOSUB 2050 

1*10 GOSUB 750 

150 REM MRIN LOOP 

160 GOSUB 2S0 

170 GOSUB 610 

130 GOSUB 220 

150 GOSUB 2140 

200 GOTO 160 

210 REM UPDfiTE 

220 IE FUC0 THEN FU-0 

230 PRINT *■ <3** THE (12) STR* CHI > " M 

243 RRINT " «*•* TRB < 22 > STR»<FU) " " 

250 RRINT TRB<36) STR* (VI) M " 

260 RETURN 

270 REM LOOK RT KEVBORRD 

2R0 IE EU< —0 THEM 310 

230 K-PEEKC157) 

300 IE K06-1 THEN 330 

310 FOR DE-1 TO 30:NEXT 

320 GOTO 530 

330 IE K<>38 THEN 420 

340 REM LEFT 

350 POKE S+l>60 

360 POKE S-*-*!-. 123 

370 HI—MI—1 

300 EOR HE—1 TO 20 = NEXT 

330 ROKE .. 0 

400 EU—EU—1 

*110 GOTO 530 

*120 IE KC>4 1 THEN 5 10 

*130 REM RIGHT 

*1*10 ROKE Si 1 > 50 

*150 ROKE S-*-*l > 123 

*160 HI— HI 1 

470 EOR HE—1 TO 20:NEXT 

*160 ROKE Si4>0 

*130 EU —EU— 1 

500 GOTO 530 

510 IE KC>60 THEN 530 

520 REM UR 

530 ROKE S-ll.40 

5*10 ROKE S-*-*l .. 1 23 

550 VI—VI—2 

560 EOR HE—1 TO 30 = NEXT 

57*0 ROKE S+4,0 

5R0 EU—EU—2 

530 RETURN 

600 REM MOVE SHIR 

610 VI—VI+1 

620 X — X-i-HI 

630 IE X>255 THEN X—255 

6*10 IE X<0 THEN X—0 

650 V-ViVI 

660 IE V<50 THEN V—50 

67-0 ROKE V .. X 

6R0 ROKE V-»-1 > V 

630 REM LRNHING 

700 IE V>220 RNH X>152 RNH X<178 RNH VIC 

3 THEN 1350 

710 REM CRRSH 

720 IE PEEKCV+31) RNH 1—1 RNH V>60 THEN 

1 720 

730 RETURN 

740 REM INITIRLIZE 

750 RRINT CHR$<142) 

760 ROKE 56334 > PEEK < 5633*1 > RNH 25*1 

770 ROKE 1,PEEK<1) RNH 251 

780 EOR -J —0 TO 511 

730 ROKE Jl14336, REEK < J +53248) 

800 NEXT JT 

010 ROKE l.REEKCl) OR -1 

020 ROKE 5633*1 .. PEEK < 56334 > OR 1 
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63k) POKE b3ii72, (PLEK<53272) AMD 2-40 ;>-*- A *4 
Q-40 FOR J — 1-ISO© TO 14623 

850 READ B : POKE T . D 

&fc0 NEXT J 

©T*© REM CHARACTER DRTR 

080 DRTR 255 . 255 . 255 . 255 . 253 . 253 . 255 . 255 

090 DRTR 255.255.255* 255, 255. 192. 192, 192 

900 FOR J-12266 TO 12350 

910 READ B : POKE JT . D 

920 NEXT T 

930 REM SPRITE DRTR 

940 DM T R 0.0.0.0.0.0 

950 DRTR 7.235.224.7.255.224 

960 DRTR 31.255.248.31.255.240 

970 DRTR 127.255.254.127.235,254 

900 DRTR 102.102.102.102.102.102 

990 DRTR 1 27.255.25-1 . 1 27.235.25-1 

1 000 DRTR 1 27.255.25-1 . 1 27’ . 255 . 25-1 

1010 DRTR S3.255.252 . -19 . O . 1 40 

1 020 DRTR -43.0.1 40.30 . O . T'O 

1030 DRTR 103.O.230.96.0.6 

10- 10 DRTR 2-10.0. 15 

1050 POKE 20-10.192 
1060 V-53248 

1 OT-O S =*5*4272 

1080 B»1024C*55296 

1090 POKE V+39.6 

1lOO POKE V+16.8 

1110 POKE 52282.O 

1120 POKE 53280.O 

1130 POKE 53201.0 

11- 10 POKE 646. 1 

1150 FOR _T*=3 TO Sl23 

11SO POKE T.O 

1 1 7^0 NEXT JT 
11SO POKE Si24.15 

1190 POKE S-*-6.2-10 

1200 PR I NT ** n** 

1210 INPUT "SKILL LEVEE <1 TO 10>";SK 

1220 IF SKC1 OR SK>1O THEM 1210 

1230 PRIMT •Tl" 

12- 10 T 8=40 

1250 RERD DR 

1260 FOR J*TR TO TR+BA 

1 270 POKE D-*-T . 3-1 
1230 POKE . 5 

1290 NEXT JT 
1300 RERD DD 

1310 FOR J«=TFI^BA TO Tfl + BR + BB 

1320 POKE DU.32 
1330 MEXT J 
1340 RERD DO 

1350 FOR J*TR+BR+BB TO Tfl+BR+BB+BC 

1360 POKE D+J.34 
1370 POKE C4-J.S 
13SO MEXT J 
1390 TR*TR+40 

1400 IF TAC>960 THEM 1250 

1410 REM SCREEM DRTR 
1-120 DRTR 1.3© . 1.2 . 3-1 . -1 
1-430 DRTR 3.31.6/7.20. 13 
1440 DRTR 12.15.13.17.6.17 

1-150 DRTr 17.6. 17. 16/7. 17 

1460 DRTR 16/7.17.15.9.IS 

1 470 DRTR IS. 9. 15. 15. 12. 13 

1 -460 DRTR 1-1. 15. 11. 12. IS. 12 
1-190 DRTR S. 16. 1S.S. 12.22 

1 500 DRTR S. 13.21.7. 1-1. 19 

1510 DRTR lO. 1-1. IS. lO. 15. 15 
1520 DRTR 11/13/16.14.9.17 

1530 DRTR 15.8.17 

15-40 FOR T —9S0 TO 1000 

1550 POKE D-t-T . 3-1 

15SO POKE C-*-T . 5 

1 57-0 MEXT J 

1560 POKE D+935.35 

1590 POKE C+935.8 

1SOO POKE D+942.35 

1610 POKE C-t-942. 6 

1620 PRIMT “ mi" . 

1630 PRIMT •' HORIZONTRL : " SPC (5) "FUEL:" 

SPC< 5 > "VERTICAL : " 



110 


i. 6-40 FU='33-SK*5 

1650 V»50 

1660 X«INT<RND<0)*160)+80 

1670 POKE V.X 

1660 POKE V-*- 1 ^ V 

1690 POKE V+21,1 

170O RETURN 

1710 REM CRHSHED 

1 720 POKE 3-*- -4 , 33 

1730 FOR J-250 TO 10 STEP —1 

1740 POKE S-F 1 > J 

1750 FOR DE-1 TO 20:NEXT 

1760 NEXT J 

1 770 POKE 3-*--4 , O 

1780 FOR -J — 1 TO 122 

1790 PRINT ** 

1600 NEXT -J 
16 10 FOR J—1 TO lO 
1820 GET GHf 

1630 NEXT J 

1840 INPUT ” TRV flGRIN •• i Q» 

1650 IF LEFTf <Q$/ 1 > — " M *' THEM 2 170 

1660 RESTORE 

1670 POKE V+21,0 

1660 FOR J—1 TO 79 

1890 REhD OR 

1300 NEXT J 

1310 GOSUB 1200 

1320 H I «=0 V I =*0 

1330 GOTO 160 

13-40 REM SUCCESSFUL LRNDING 
1950 FOR J—1 TO -4 
1360 RERB M,U 
1370 POKE S-Fl /N 
1 360 POKE 3-*--4 > 33 

1330 FOR HE—1 TO B#16NEXT 

2000 MEXT JT 
20 10 POKE 3-*--4>0 

2020 DRTR 23 . SO > 35 > 50 > 26 > 50 - -40 * 30 

2030 GOTO 1760 

20-40 REM TITLE PRGE 

2050 PRINT ••n , ‘ 

2060 POKE 53280,2 
2070 POKE 53261 2 

2060 POKE 6-46,7 

2030 PRINT •* jUaloUCDlMl" TRB < 13) "LUNAR LRNDE 


2 100 PRINT •* JUnlAlAUKIalit]" TRB<4) "KEVS O RNB 
F FOR LEFT RNB RIGHT" 

2110 PRINT TRB (7) •• SPACE BAR TO SLOW 

DESCENT *• 

2120 RETURN 
2130 REM BELRV 

2 1-40 FOR HE—1 TO 1200-SK* 100 
2150 MEXT HE 


2160 RETURM 
2170 POKE 49152,0 
2 160 SVS -43152 
2130 END 




3-D MAZE 


ill 


You are trapped at the southern end of a tortuous maze 
and must try to reach the exit, which you know lies 
somewhere to the north. You will see a perspective view 
of the inside of the maze, as you wander around it, with 
either open or blocked doors in front of you and to your 
left and right. 


Howto play 

To face in a particular compass direction press keys N, S, 
E or W. to move forward press key F. Note that you will 
only move by pressing key F. Although the compass keys 
will change your viewpoint you will remain stationary. 

A skill level between 5 and 90 at the beginning of the 
game governs the overall size of the maze, be warned the 
higher skill levels are only for those with a keen sense of 
direction and an excellent memory! 


Graphics characters 


Line 


130 

Clear 

236 

Clear 

280 

2 cursor down 

300 

Cursor down 

970 

Clear 

1160 

Home 

1162 

Cursor down 

1180 

Home 

1182 

Cursor down 
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1200 

Home 

1202 

Cursor down 

1220 

Clear 

1222 

Cursor down 

1560 

Home 

1562 

Cursor down 

1566 

3 cursor down 

The program 

Lines 


142-220 

Define graphics characters 

224-232 

Set sound registers 

238-250 

Screen colours 

260-300 

Input skill level 

350-410 

Display end wall 

430-540 

Sidewall 

560-670 

Sidewall 

690-710 

Sidewall door 

730-750 

Sidewall door 

760-960 

Initial maze values 

980-1130 

Print view foreach direction 

1150-1224 

Print direction information 

1246-1550 

Look at keyboard and decipher 

1560-1570 

Exitfound 

1590-1810 

Setup maze 

1812-1816 

Delay subroutine 

1820-1824 

Clear keyboard buffer 

1828-1830 

Newgame 

1840-1860 

End of program 


100 REM 3 —D MAZE 

110 REM 

130 DIM M<30,12> 

130 PRINT •• ra** 

142 POKE 55,0 

1 -4^4 POKE 56,56 

146 PRINT CHR$<142) 

148 POKE 56334 PEEK < 56334 > AND 

150 POKE 1.PEEKv1> AND 331 




* 


I 

354 
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152 FOR J=0 TO 511 

1 54 POKE -J -*- 1 4336 .. PEEK J+53243 > 

156 NEXT J 

1 58 POKE 1 , PEEK U) OR -4 

1 60 POKE 56334 .. PEEK < 56334 > OR 1 
1 62 POKE 53272, , : PEEK<53272> HHD 240 > -*- 1 4 
164 E OR -_T = 1 4608 TO 14647 
1 66 REHli E: 

1 68 POKE T .. E: 

1 7=*© NEXT -_T 

1 SO DRTFi 255 255 .. 255 .. 255 255 .. 255 .. 255 255 

1 3© DRTR 1.3 .* ~7‘ .. 1 5 3 1 ■ 63 .. 1 27 .. 255 

2©0 IiRTR 25-4 .. 252 -■ 248 .. 2-4© , 22-4 , 1 32 .. 1 23 . © 

2 10 DRTR 1 23 .. 1 32 .. 224,24© .. 243 252 -• 254 255 

22© DRTR 1 217 .. 63,31,15,7,3, 1 , © 

222 riS= 1024 03=55236 

226 FOR T =S TO S+23 

223 POKE J ,0 

23© NEXT -J 

232 POKE 3-*-24 , 15^ POKE S + 6,240 

234 XV*10 VV =16 

236 PRINT ■’ r3 M 

233 POKE 5323©,15 

240 POKE 53281,15 

250 POKE 646,3 

260 INPUT "SKILL. LEVEL <5 TO 3© > LN 

278 IE LN>4 RND LH<31 THEM 30© 

23© PRINT ■' 5 TO 30 PLERSEMfl" 

23© GOTO 26© 

300 PRINT "MERCK IM R MINUTE. - - - " 

33© GOTO 760 

340 REM END WRLL 

35© X=XV 

36© V=VV 

370 EOR 1=1 TO 5 

372 EOR K=© TO 5 

374 POKE <K+X)*40+V+DS,34 

376 ROKE <X + K>*40-^V + CS, 8 

378 MEXT K 

330 V=V+1 

33© MEXT I 

410 RETURN 

420 REM SIDE WRLL 

43© X = X V 

44© V=VV+5 

45© M=6 

460 EOR 1=1 TO 3 

470 EOR K=0 TO M—1 

430 ROKE < X + K > *40 + V-^DS , 34 

430 ROKE < X-*-K > ^40+V+CS .. 5 

50© MEXT K 

502 ROKE <X-1)*40+V+DS,35 

504 ROKE < X— 1 > *£40-»-V-*-CS ^ 5 

506 ROKE <X+M>*40+V+DS,38 

503 ROKE CX+M>#40+V+CS,5 

51© M=M+2 

52© X = X— 1 ; V = V-*-l 

530 MEXT I 

54© RETURN 

550 REM SIDE WRLL 

56© X=XV 

570 V=VV 

S3© N=6 

530 EOR 1=1 TO 3 

600 EOR K=0 TO M—1 

610 ROKE <X+K>*40+V+DS,34 

620 ROKE <X+K>*40+V+CS,5 

63© MEXT K 

64© ROKE C X + M > #40+V + DS, 36 

642 ROKE <X+M>#40+V+CS,5 

644 ROKE CX-l>*4©+V+DS,37 

646 ROKE <X-1>#40+V+CS,5 

643 X=X—1 V=V—1 

65© N=M+2 

66© MEXT I 

670 RETURN 

630 REM SIDE WRLL DOOR 

63© GOSUB 42© 

700 EOR -_T = © TO 1 
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702 FOR K=0 TO 19 

7*0-* POKE <XV-6+K>#40+VV + 8 + J + DS, 32 

7-06 NEXT K.-JT 

7-10 RETURN 

720 REM SIDE WALL DOOR 

730 GOSUB 550 

7*40 EOR -_T = 0 TO 1 

■742 EOR K = 0 TO 13 

744 POKE < XV-7+K ) stf40+VV-5+J+DS / 32 

746 NEXT K . J 

"750 RETURN 

760 GOSUB 1530 

7" 7*0 EOR 1 = 1 TO LN 

780 EOR -T=l TO 12 

790 R= I NT < RND <0>*1 - 3-*- 1 > 

S©0 IE MCI.J>O0 THEM 820 

S 1 0 MCI . -T > = R 

820 NEXT T .. I 

840 EOR 1=1 TO 12 

S50 MCL_M. I> = 1 

860 M C LN— 1 . I > =2 

870 MC 1 .. I :■ =4 

880 IE M < 2 ji I>=3 THEM 300 

©30 MC2, I > = 1 

©00 NEXT I 

910 EOR 1=1 TO LN 

920 M C I .. 1 7 = 1 

©30 M C I . 1 2 > = 1 

©40 MEXT I 

950 R = L_M— 1 

©60 0=2 

©70 RRIMT "71" 

980 OM D 4- 1 GOTO 330 .- 1070 , 1030, 1110 

©30 OM M < R— 1.0 > GOSUB 340 . 410 .. 410 .- 410 


1 000 

OM 

M C R . C — 1 > 

GOSUB 

550 • 

7*20 . 

7-20 . 

720 

1 0 1 0 

OM 

r-i r . o -»-1 > 

GOSUB 

420 . 

88U . 

880 . 

880 

1 020 

GOTO 1140 






1 030 

OM 

M C R-4- 1 . C > 

GOSUB 

340 . 

4 10. 

4 10. 

4 10 

1 040 

OM 

M C R . C+ 1 

GOSUB 

550 . 

720 . 

7*20 . 

720 

1 050 

OM 

M C R . C— 1 > 

GOSUB 

420 . 

680 j 

880 . 

880 

1 060 

GOTO 1140 






1 n 7’ n 

OM 

M C R . C-*- 1 > 

GOSUB 

340 . 

4 10. 

4 10. 

410 

1 080 

OM 

M C R— 1.0 

GOSUB 

550 . 

720 , 

7*20 . 

720 

1 0©0 

OM 

r-i C R-4- 1 . C > 

GO SUE 

420 . 

880 . 

880 . 

680 

1 1 00 

GIJ 

TO 1140 






1110 

riM 

M C R . C— 1 > 

GOSUB 

340 . 

4 10. 

4 10. 

4 18 

1 1 20 

OM 

M C R+l . O 

GO SUE 

550 . 

7*20 . 

7*20 . 

720 

1 1 30 

OM 

M C R— 1.0 

GOSUB 

420 . 

880 . 

880 . 

680 


1140 REM RRIMT DIRECTION 

1150 IE DO0 THEM 1170 

1 1 ©0 RRIMT '• £=3" 

1162 EOR T= 1 TO 11 RRIMT " W NEXT 

11©4 RRIMT TABC 13 > "FACING NORTH" 

117*0 IE D<>2 THEM 1130 

11S0 RRIMT ”SS" 

11©2 EOR J=1 TO 11:RRIMT "M" NEXT 

1184 RRIMT T MB(13) "FACING SOUTH" 
1130 IE DO 1 THEM 1210 

1200 RRIMT "5=a" 

1202 EOR -J=l TO 11 : RRIMT " W" NEXT 

1204 RRIMT THE(13) "FACING ERST " 

1210 IE DOS THEM 1240 

1220 RRIMT "S=3" 

1222 EOR T= 1 TO 11 : RRIMT " JP" NEXT 

1224 RRIMT TABC 13 > "FACING WEST " 

1230 REM WHICH WAV? 

1240 ROKE S+1,50:ROKE S-«-4 . 33 

1 242 GOSUB 18 12 

1244 ROKE S-+-4.0 

1248 K=PEEKC137> 

1250 IE K=64 THEM 1248 

1252 ROKE S-4-1 .. 80 : ROKE S-4-4 . 33 

1254 GOSUB 1812 


1 256 

ROKE 

S+4 . 0 


1 260 

I E 

K 

= 2 1 

THEM 

1 320 

1 270 

I E 

K 

= 33 

THEM 

1 470 

1 280 

I E 

K 

= 13 

THEM 

1 430 

1 230 

I E 

K 

= 14 

THEM 

15 10 

1 300 

I E 

K 

= 3 

THEM 1 

530 
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1310 GOTO 12-10 
1320 MV*MV+1 

1330 OH D+l 00X0 1340, 1410, 1380, 1 -1-10 

13-10 IF M •:! R—1 .. O > = 1 THEN 1550 

p _ p._^ 

IF M<R/C>-4 XHEN 1560 
00X0 S*7^0 

IF M(R+1 0 = 1 XHEN 1550 

R = R -+- 1 
00X0 970 

IF M < R ji C-*~ 1 > = 1 XHEN 1550 

0 = 0-*- 1 
00X0 970 

IF NCR,C—17=1 XHEN 1550 

0 = 0— 1 
00X0 970 

u=0 

00X0 970 

33 = 2 

00X0 970 

13= 1 

00X0 970 

33 = 3 

00X0 970 

GOXO 1 1 -10 
PR I MX ,, sa" 

FOR JT = 1 XO 13 PR I MX W : NEXX 
PRIMX "COMGRRXULflXIOMS! VOU ESCRPED 
OML V ” 

RRIMX MV "MOVESWXW" 

GOXO 1320 
REM PLOX MAZE 
R-l= 1 

R 1 = I MX < RM33 < 0 > 3#e‘P*-*-3 > 

R2= I MX < RM33 0 > *e-l-*-2 > 

E OR I =R-1 XO R4 + R2 
IE I=LM—1 XHEN 1310 
M < I , R1 >=3 
MEXX I 
R4=R4+R2 
M < R-l-*- 1 , R 1 > = 1 
R3= I MX < RMD < 0 > *2-*- 1 > 

IE R302 THEN 1^10 
P2=:_ 1 

R5= I MX < RM33 < 0 > *3-*-2 > 

E OR 1 = 1 XO R5 

IE CR1+R3#I)C11 XMEM 1750 
R 1 =R 1—1 

IE <R1+R3#I>>1 XMEM 1770 
R1=R1+1 

M < R-l , R 1 +R3* I > =3 
MEXX I 
R1=R1+R5*R3 
GOXO 1310 
RETURN 

EOR 33E= 1 XO 30 
MEXX 33E 
REXURM 

EOR -_T=1 XO 10 
OEX GflT 
MEXX J 

I MPUX ■* XRV RGR I M " OX 
IE LEEX$<Q$,1)="V" XMEM RUM 
POKE -13 1 52,0 
3VS 49152 
E M 33 
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FIREMAN 


The firebugs have been at work again. This time it's a tall 
apartment building burning from the top down. Your 
task is to try and catch the unhappy residents as they leap 
from the windows ofthe burning building. 


How to play 

Move the firemen and blanket using keys O and P to run 
left and right and Q and W to walk left and right 
respectively. As the fire moves downwards you will have 
less time in which to prevent the luckless inhabitants 
from coming to a sticky end. 

Catch as many as you can in the blanket, but miss 10 and 
I'm afraid that's the end of your career with the fire 
service. 


Graphics characters 

Line 

530 Home 
750 Home 
1170 Clear 
1410 Home 
1560 Cursor down 
1570 Cursor down 
1580 Cursor down 
1660 Cursor down 
1670 Cursor down 
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The program 

Lines 


150 

160-170 

180-230 

250-340 

380-410 

430-440 

480-570 

580-640 

700-770 

790-900 

920-1130 

1140-1160 

1180-1200 

1210 

1230-1410 

1430-1450 

1470-1590 

1610-1680 

1690-1710 

1720-1740 

1750-1780 

1790-1810 


Look at keyboard 
No key pressed 
Update firemens position 
Print firemen in new position 
Man jumps 

Call new layer of building routine 
Missed man 

Move man down towards ground 

Caught man 

New layerof building 

Define graphics characters 

Set sound registers 

Set screen colours 

Initial values 

Print initial screen 

Main subroutine calling loop 

All men jumped 

10 lives lost 

Delay subroutine 

Empty print buffer 

Newgame 

End of program 


1 00 
110 

1 20 
1 30 
1 *40 
1 50 
1 60 
1 7*0 
1 80 

1 3© 
200 

2 10 
220 
230 
240 
250 
2 fe 0 


2S0 
230 
300 
3 10 

320 


REM FIREMHH 
REM 

GOTO 320 

REM MOVE SUBROUTINE 

REM LOOK HT KEVBORRD 

K=PEEK<197> 

IE K064 THEM ISO 

E OR DE=1 TO 175 NEXT 

OC-EC 

IE K = 62 RNH E 06 THEM FC = FC- 

IE K = 3 RHIi FCC33 THEM EC = EC:-«- 
IE K=38 RMD EOS THEM FC=EC- 

IE K=41 RMD FC<32 THEM EC=EC 

IE OC=EC THEM 340 

REM RE: I MT E I REMRM 
FOR J=1348 TO 1380 
POKE J,32 
MEXT -_T 

POKE 1343+EC■37 
POKE 56215+EC.6 
ROKE 1944+EC333 
ROKE 56216+EC.7 
ROKE 1945+EC■38 


+ o;imh 
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330 POKE 56217+FC.6 

3 ■=4-0 RETURN 

350 REM FRLLIHG MRM 

360 IE JP=1 THEM 450 

370 REM MEM MRM 

330 CL= I MX < RMD <0>*18) -*-3 

330 RW=TW 

400 33=35:CT=8 

410 JP=1 

420 MC=NC+1 

430 IE MC/50 I MX < MC/5 > XHEM 450 

440 GOSUB 790 

450 RN=RU+1 

430 IE RW<>24 XHEM 530 

470 REM MISSED 

430 L3 = L3-fr- 1 

430 POKE S+l,10:POKE S+4,33 

500 POKE 19S4+CL,41 

510 POKE 56256+CL,2 

520 J P = 0 

530 RRIMX " XRB C 23 > LS 

540 GOSUB 1690 

550 POKE S+4.0 

560 IE LS=10 XHEM 1350 

570 GOXO 760 

530 POKE (RW-1>#40+CL+1024,S3 

530 POKE <RW-1>*40+CL+55296,CX 

300 S3 = PEEK<RW*40+CL+1024 > 

310 CX=PEEK(RN#40+CL+55293> 

320 POKE S-+- 1,240/RW POKE S + 4, S3 

330 POKE RW#40+CL+1024,40 

340 POKE RW#40+CL+55293,5 

350 IE RW023 XHEM 7*3© 

330 POKE RW*40+CL+1024,S3 

670 POKE RW#40+CL+5523S,CX 

330 IE FCOCL XHEM 730 

330 REM SAVED 

7^00 SV=SV+1 

710 POKE S-*~ 1 -• 52 : POKE S + 4,83 

720 POKE 1344+EC,33 

730 POKE 53213+EC,? 

7*40 JP = 0 

750 PR I MX '■ *=*■■ XRBCll) SV 

730 POKE S-*-4 .» 0 

7-7-0 REX UR M 

780 REM MEW LRVER 

790 XW=XN+2 

300 RW=RN+2 

310 IE XW>22 XHEM 1470 

320 E OR -J = 7* XO 3 1 

330 POKE S-+-1 30 : POKE S-+-4.123 

340 POKE < XN-3 > #40+J+1024,32 

350 POKE CXW-2>*40+J+1024,32 

330 POKE < XW—1 *40 +-J+1 024 .. 33 

370 POKE < XN-1 > #40+J+5529S, 2 

330 POKE S-+-4 , © 

S3© MEXX -JT 

300 REXIJRN 

31© REM IMIXIRLIZE 

32© POKE 55.0 POKE 53,53 

330 PRIMXCHRT< 142 > 

340 POKE 53334, PEEKC 53334 > RMD 254 

350 POKE 1,PEEK<1> RMD 251 

33© EOR -_T — 0 XO 511 

370 POKE J+14333, PEEK < J+53248) 

33© MEXX T 

33© POKE 1 .. PEEK < 1 > OR 4 

10©0 POKE 53334..PEEK<53334> OR 1 

101© POKE 53272, < PEEK < 53272 > RMD 240 > -+- 1 

4 

102© POR _T= 14303 XO 1437*1 

1©30 RERD B 

104© POKE - J B 

105© MEXX T 

1 03© DRXR 255 .. 255 .. 255 .. 255 ^ 255 -■ 255 255 .. 25 

5 

1 070 DRXR 255.. 129, 123, 123.- 123, 123, 129,25 

5 

103© DR XR 0.0.. 145 .- 1 70,223 , 235,255,255 

103© DRXR 48, 120,48, 124.. 173,43,72,204 
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1 1 00 DHTR 1 2 30 , 12,62 .. 205 .. 1 -10 -• 18,51 

1110 DRTR 0.0 0 ^ 0 0 ■ 0 _■ 1 23 .. 255 

1 1 20 DRTR 56 .. 56 1 45 . 1 2b 53 > 5«=- .. 40 .. S3 

1 1 30 DRTR 0 ... 0-0- 1 - 56 .. 254 .. 1 20 .. 43 

1140 5=54272 

1150 FOR L_ = S TO S+23 POKE L_ .• 0 : NEXT 

1130 POKE 5+24..15 : POKE S+6,240 
1170 PRINT ,, n’* 

1130 POKE 53280,0 

1 130 POKE 53231 - 0 

1 200 POKE 343 .. 1 

12 10 FU = fc. : OC=b - TW= .-=■ 

1220 REM DRRW BUILDING 

1230 E OR K = 3 TO 22 

1240 POKE K *40+1 03 1 ... 3 4 

1250 POKE K*40+55303,8 

1230 NEXT K 

1270 EOR K=3 TO 22 

1230 POKE K*40+1055,34 

1230 POKE K*40+55327 .. 3 

1300 NEXT K 

1310 EOR -_T = 3 TO 22 STER 2 

1320 EOR K = 3 TO 31 

1330 ROKE J*40+K+1024,34 

1340 ROKE ,T*40 + K +55236,8 

1350 NEXT K, T 

1330 EOR T=T TO 21 STER 2 

1370 EOR K = 3 TO 30 

1330 ROKE ,T*40 + K+1024,35 

1330 ROKE J*40+K+55233,3 

1 400 NEXT K .. JT 

14 10 PRINT ■' TflB<5) " SRVED : " SRC < 1 2 > 

■■LOST 

1420 GOSUE 230 

1430 GOSUE 150 

1440 GOSUE 330 

1450 GOTO 1430 

1430 REM SUCCESS 

1470 ROKE S+ 1 .■ 33 : POKE S + 4,83 

1430 GOSIJB 1330 

1430 ROKE S+1,45 

1500 GOSUE 1330 

1510 ROKE S+1,36 

1520 GOSUE 1330 

L 530 ROKE S+1,50 

1540 GOSUE 1330:GOSUE 1330 

1550 ROKE S+4,0 

1530 EOR T=1 TO 1 3 RRI NT "M":NEXT 
1570 PRINT " CONGRRTULflT I ONS ! JO" 

1530 PRINT STR$< SV> " LIVES SAVED- JO" 

1530 GOTO 1720 

1300 REM FAILURE 

1310 EOR -_T=100 TO 15 STER —5 

1320 ROKE S+l,J:ROKE S+4,83 

1330 EOR DE=1 TO 50: MEXT 

1340 MEXT T 


1350 ROKE S+4,0 

1330 EOR -J= 1 TO 13: PRINT ■■ W 

1370 PRINT "10 LIVES LOST — 

BRASS POLISHER ! JO" 

1330 GOTO 1720 

1330 EOR DE=1 TO 250 

1700 NEXT EE 

1710 RETURN 

1720 EOR J=1 TO 10 

1730 GET GA$ 

1740 NEXT J 

1750 INPUT "TRV AGAIN“;Q$ 

1730 IE "N" THEN 1790 

1770 5V=0:LS=0:NC=0 

1780 GOTO 1170 

1730 ROKE 49152,0 

1300 SVS 43152 


: NEXT 
DEMOTION 


TO 


1310 END 
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CAPITALS 


Everyone knows that Kingston is near Richmond on the 
Thames don't they? But do they all know that Kingston is 
also the capital of Jamaica. 

This program can be used as a party game or as a 
educational aid for the younger members of the family, 
whose geography is a little weak. 


Howto play 

The computer will ask you for the capital city of a country 
and, if you answer correctly, will move on to the next 
question. An incorrect answer will mean that you have 
up to three more tries to get the answer right. It must also 
be spelt correctly. 


Programming hints 

The list of countries and capitals can be extended by 
adding extra data statements after line 540 and by 
increasing the values in lines 140, 150 and 190 to match 
the total number of countries. This program can easily 
form the basis for almost any 'question and answer' 
game — just type in the question as a data statement 
followed by the correct answer. 

The question and answer should always be separated by 
a comma, but ensure that commas do not occur in the 
middle of the question/answer or you will get some 
strange results. 


121 


Graphic symbols 

Line 

130 Clear 


The program 

Lines 

140-170 Dimension arrays and read data 

190-210 Random question and prevent repetition 

230-240 Input answer 

250 Correct answer 

260-300 Wrong answer 

310-330 Print answer after4tries 


110 
1 20 
1 30 
1 -40 
1 30 
1 60 
1 7*0 
1 00 

1 s»0 
200 

2 10 
220 
230 

> : PR 
232 

2- 40 
250 
OTO 
260 
270 
200 
290 
300 
3 10 
320 

> R & < 
330 

3- 40 
330 
360 
370 
300 
300 
-400 
-4 10 
-420 
-430 
-4-40 
-450 
-460 


CAPITflLS 


CAPITRL OR 


' CORRECT 


REM 
REM 

PRINT " Z2" 

DIM C$(20>,P$<20) 

FOR jr= 1 TO 20 
READ < LT > , R:* < -J > 

NEXT -J 
CN=0 

RH= I NT < RND < 1 > *20 > 3 

IR RN=R THEN 100 

R-RN 
RR I NT 

RRINT "WHRT IS THE 
I NT 

AN$= " " 

INRUT RN$:RRINT 
IR AN$=P$CR) THEN RRINT 

1 ©0 

CN=CN+1 

IR CN=4 THEN 310 

RRINT "TRV AGAIN! M 
RR I NT 
GOT O 2-40 
RR I NT 

RRINT "THE CAPITAL OR " J C *< R > ; 
R > i " - " 

RR I NT 
GOTO 100 

DATA AFGHANISTAN,KABUL 

DATA ARGENTINA , BUENOS HIRES 

DATA BELGIUM,BRUSSELS 

DATA BRAZIL, RIO DE JANEIRO 

DHTH CANADA,OTTOWA 

DATA CUBA,HAVANA 

DHTH DENMHRK,CORENHHGEN 

DHTH EGYPT,CHIRO 

DHTH ENGLAND,LONDON 

DHTH FRANCE, RHRIS 

DATA GREECE,ATHENS 

DHTH ITHLV,ROME 


| : O 

IS " 
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<* 7*0 
480 
<*S«0 
500 
5 10 
520 
530 
5<*0 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


JAMAICA,KINGSTON 
MIGERIA,LAGOS 
NORWAY,OSLO 
PORTUGAL . l_ I SBON 
RUSSIA,MOSCOW 
SCOTLAND,EDINBURGH 
SPA IN, M ADR I ID 
U-S-R-•WASHINGTON 


BRAINTEASERS 

FORTHE 

COMMODORE 

64 


PROGRAMS 

to puzzle and amuse 
If you are tired of zap and pow games 
and are looking for something different, this is it 

Aimed at 15 + 

these programs demand use of 
your powers of logic, 
general knowledge and deduction. 

All programs have a competition element 

and many carry an IQ rating. 
Whodunnits; Wire Mazes; Safe Crackers; 
Western adventures; Decisiveness Tester 

Available from bookshops, 
only £5.95 

or direct at £5.95 + 55o d/d from: 


PHOENIX PUBLISHING ASSOCIATES, 14 VERNON ROAD, 
BUSHEY, HERTS, WD2 2JL. Tel WATFORD 0923 32109 
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THE 

COMMODORE 64 

PROGRAM BOOK 


Here is a blockbusting collection 
of adventures, games and utilities 
to exploit the colour and graphics at your command. 

The adventures 

will test your powers of logic and deduction 
as you seek treasure in “Forbidden City" and "Pharaoh's Curse 

There is a wide selection of 
arcade-style games 
plus a Flight Simulation game which will test 
your reactions to the full. 

The utilities 

include, for budding programmers, 
a highly versatile assembler/disassembler 
and a line renumber program. 

This is 

“the” Commodore 64 Program Book 

with something for everyone. 


THE AUTHOR 

Vince Apps, who currently runs his own successful 
software company is the author of the bestselling 
Texas Program Book and Oric 1 Program Book. 
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